Const DeviceName As String = "PrimoPDF"
Dim stDocName As String
stDocName = "rptReportMembers"
With DoCmd
.OpenReport stDocName, acViewPreview, , , acHidden
Reports(stDocName).Printer = Printers(DeviceName)
.PrintOut acPrintAll, , , , 1
.Close acReport, stDocName
End With
|