Changing system printer

[jc113883]

Hi,

I am using excel VBA to control another (non-microsoft) program. When I set the program to print, it uses the default system printer (not the excel printer). The program itself doesn't have a change active printer method.

Does anyone know of some VBA code that will change the system printer (not just the excel default printer as "application.activeprinter = ...", does.) It exists out there in code for VB, but that's a little beyond me. I'm using XP.

Graeme.

 

[Ivan F Moala]

Try something like...........

Sub SysPrinterSetdefault()
Dim WshNetwork  As Object
Dim PrinterPath As String

    Set WshNetwork = CreateObject("WScript.Network")
    '// The name of your Printer
    PrinterPath = "Microsoft Office Document Image Writer"
    
    '// Set your degault printer here
    WshNetwork.SetDefaultPrinter PrinterPath
    
    Set WshNetwork = Nothing
    
End Sub

 

[jc113883]

Thanks Ivan... works great!