S
Simon Peers
How can I set the Windows Default Printer?
I am trying to set the printer back to the default printer after getting it
to print to a specific printer.
Does anyone know the specific code to do this?
I am calling this from Access but it is still basic code, here is hwat I
have tried:
'Print Invoice to PDF File
With xlSheet.PageSetup
xlSheet.Application.ActivePrinter = "CutePDF Writer on CPW2:"
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
With xlSheet.PageSetup
xlSheet.Application.ActivePrinter = "WindowsDefaultPrinter" = True
End With
The first bit works perfectly, captures the printer (PDF writer in this
case) and I need to be able to reset it back to the Windows Default Printer
as I I will not know what this printer is called.
xlSheet.Application.ActivePrinter = "***WindowsDefaultPrinter***" = True
The text between the stars gives errors not surprisingly, If this was
correct I think it would work.
Many thanks
I am trying to set the printer back to the default printer after getting it
to print to a specific printer.
Does anyone know the specific code to do this?
I am calling this from Access but it is still basic code, here is hwat I
have tried:
'Print Invoice to PDF File
With xlSheet.PageSetup
xlSheet.Application.ActivePrinter = "CutePDF Writer on CPW2:"
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
With xlSheet.PageSetup
xlSheet.Application.ActivePrinter = "WindowsDefaultPrinter" = True
End With
The first bit works perfectly, captures the printer (PDF writer in this
case) and I need to be able to reset it back to the Windows Default Printer
as I I will not know what this printer is called.
xlSheet.Application.ActivePrinter = "***WindowsDefaultPrinter***" = True
The text between the stars gives errors not surprisingly, If this was
correct I think it would work.
Many thanks