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