Declare Function SetDefaultPrinter Lib "winspool.drv"

[hermanlaksko]

I can change the default printer - real easy with this code:

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal PrinterName As String) As Boolean

Sub SetDef()
Dim PrinterName As String
PrinterName = "HP LaserJet 4 Plus"
SetDefaultPrinter PrinterName
End Sub

The above will set a new def.printer, but, and this is my question how does one change the def. port on the printer also and is there some place where winspool.dev functions are shown I wonder

Thanks in advance

Herman

They say that crime doesn't pay... does that mean my job is a crime?