# 帮帮我!!! 请问有关 printer

Posted by jerry on August 24, 1999 at 11:40:30:

Dim OldA As Printer, NewA As Printer

CommonDialog1.ShowPrinter
Set OldA = Printer
For Each NewDefault In Printers
If NewA.hdc = CommonDialog1.hdc Then Set Printer = NewA
Next

CrystalReport1.Destination = crptToPrinter
CrystalReport1.ReportFileName = "myrpt"
CrystalReport1.Action = 1

有人可以告诉我, 我错在那里, 为何 printer 的 dialog 不会跑出来
而 crystal 第一行 也是执行错误

Follow Ups: