请问如何在activereport2中用语句指定打印的打印机？

Question

就是如何写程序指定使用哪一台打印机。

Answer 1

ar打印机的设置：
 Dim gPrinter As New DDActiveReports2.Printer
 gPrinter.SetupDialog
ar指定打印机：
 gprinter.DeviceName="使用的打印机名称"

Answer 2

Printers 集合允许对可用打印机进行查询，这样就可以为自己的应用程序指定缺省打印机。例如，您可能想查出哪种可用打印机使用特定的打印机驱动程序。下列代码对所有可用打印机进行搜索，对第一个打印机定位，并将其走纸方向设置为纵向，然后将打印机设置为缺省打印机：Dim X As Printer
For Each X In Printers
   If X.Orientation = vbPRORPortrait Then
      '将打印机设置为系统缺省的打印机。
      Set Printer = X
      '停止寻找打印机。
      Exit For
   End If
Next可以用 Set 语句将 Printers 集合中的一种打印机设置为缺省打印机。上例中将对象变量 X 所标识的打印机指定为应用程序的缺省打印机。