In response to (2) this is a routine to load installed printer in a variable input box predefined values list. To print in another PDF printer, like i.e. CutePDF, you use .printex method.
'=============================================================================================
'Available printer
'=============================================================================================
sub SetPrinterList
' Get active printers (This will need "system access" security on)
set nw = CreateObject("WScript.Network")
set pr = nw.EnumPrinterConnections
redim lv((pr.Count/2))
lv(0) = "Default"
For i = 1 to pr.Count Step 2
lv(1+((i-1)/2)) = pr.Item(i)
Next
set pr = nothing
set nw = nothing
' Define printer list
set vr = ActiveDocument.Variables("PRINTER")
vp = vr.GetProperties
vp.PreDefinedList = lv
vp.ConstraintsFlag = 3 ' Predefined values only
vp.UseMRU = false
vp.UsePredefListedValues = true
vp.UsePredefNumberSeries = false
vp.UseScroll = false
vr.SetProperties vp
set vr = nothing
' Refresh Input Box content, set to "default" printer
set ib = ActiveDocument.GetSheetObject("IB01")
set bp = ib.GetProperties
if bp.Layout.MemberAttributes(0).Name.v = "PRINTER" then
' Default will need .Printout method, others will need .Printex
ib.SetVariableContent 0,"Default",false
end if
set bp = nothing
set ib = nothing
end sub
User selection may be retrieved by :
set vr = ActiveDocument.Variables("PRINTER")
gsPrinter = vr.GetContent.String
set vr = nothing
