Does anyone have a working example of how to change the default printer orientation from VB6?
Printable View
Does anyone have a working example of how to change the default printer orientation from VB6?
The only way that I have found to change the default printer is from the commondialog button and have the user change the printer and/or orientation. After adding the commondialog control below is the code.
CommonDialog1.Flags = cdlPDDisablePrintToFile
CommonDialog1.PrinterDefault = True
If MsgBox(Printer.DeviceName & " is the printer that is set. Do you wish to change the printer? ", vbYesNo, "Change Printer/Orientation ?") = vbYes Then
CommonDialog1.ShowPrinter
End If