MS Access 2010 の VBA にて プリンタ枚数 を指定しても反映されない
症状
Private Sub PrintReport(inReportName As String, inPrinter As Printer, inCopiesNumber As Integer)
DoCmd.OpenReport inReportName, acViewDesign, , , acHidden
Set Application.Printer = inPrinter
Application.Printer.Copies = inCopiesNumber
DoCmd.OpenReport inReportName
DoCmd.Close acReport, inReportName, acSaveNo
Set Application.Printer = Nothing
End Sub
対処
Private Sub PrintReport(inReportName As String, inPrinter As Printer, inCopiesNumber As Integer)
DoCmd.OpenReport inReportName, acViewPreview DoCmd.SelectObject acReport, inReportName, False
Set Application.Printer = inPrinter
DoCmd.PrintOut , , , , inCopiesNumber
DoCmd.Close acReport, inReportName
Set Application.Printer = Nothing
End Sub
参考
http://support.microsoft.com/kb/2627824
コメント
コメントを投稿