With CommonDialog1
      .DialogTitle = "打印"
      .CancelError = True
      .Flags = cdlPDPrintSetup
      .ShowPrinter      
End With
无论怎么设置打印机,
Printer.PaperSize都是返回打印机默认纸张(9  A4纸张)后来看MSDN,加上了
Printer.EndDoc
CommonDialog1.PrinterDefault = True可是还是不行,是不是我那里没设置好,请指教!