Цитата |
---|
Счастливчик написал: А как поменять? Просто поменять везде XPS на PDF? |
В коде в 2х местах вместо Like
"*XPS*" нужно записать Like
"*PDF*" , получится:
Вот измененный фрагмент кода для PDF принтера:
Код |
---|
' Temporary set up PDF printer
If Not sPrnName Like "*PDF*" Then
sBuf = String(2 ^ 14, Chr(0))
i = GetProfileString("Devices", vbNullString, vbNullString, sBuf, Len(sBuf))
sBuf = Left(sBuf, i)
For Each vFileName In Split(sBuf, Chr(0))
If vFileName Like "*PDF*" Then
sXpsName = vFileName & " (Ne" & Right("00" & j, 2) & ":)"
Application.ActivePrinter = sXpsName
Exit For
End If
j = j + 1
Next
End If |
Цитата |
---|
Счастливчик написал: Огромнейшее спасибо за помощь! |
Пожалуйста, надеюсь, сработает побыстрее.