在Windows NT version 4.0, Windows 2000, or Windows XP平台下,在VB6.0中,调用CommonDialogbox的ShowPrint方法以后,Printer的一些属性例如Copies和Orientation不会改变,而在Windows 95, Windows 98, or Windows ME下工作正常,您可以通过以下方法来解决这个问题,如下例:
With CommonDialog1
.ShowPrinter
Printer.Copies = .Copies
Printer.Orientation = .Orientation
Debug.Print "Copies = " & CStr(Printer.Copies) & vbCrLf & "Orientation = " & CStr(Printer.Orientation)
End With