나는 similar question이 내 것으로 보았지만 거기에 제공된 해결 방법은 나를 위해 가능한 방법이 아닙니다. 최대 1000 개 이상 인쇄해야합니다. DoCmd.PrintOut는 하나의 복사본 만 인쇄합니다
DoCmd.OpenReport Report, acViewReport 'Open report
DoCmd.PrintOut , , , acHigh, copys' Print report
(copys으로 내가 copys의 양을 지정한는.)
내가 뭘 잘못 했습니까?
보고서를 인쇄하는 다른 방법이 있습니까?
도움 주셔서 감사합니다.
완전한 코드 :
Private Sub cmd_openreport_Click()
'Set Variables
Dim Report
Dim Etikette
Dim Copyes As String
Dim SQLString
Dim SQLString2
DoCmd.SetWarnings False 'Turns Off Warnings
Etikette = comb_etiketten_auswahl 'Etikette Equals the comb_etiketten_auswahl value
Report = comb_etiketten_layout 'Report equals the value in the dropdown list
Copyes = Forms!frm_Hauptmenu!comb_etiketten_auswahl.Column(1)
'If The Etiketten Dropdown is empty message to client
If Etikette <> "" Then
'Do Nothing/Continue
Else
MsgBox "Bitte wählen Sie einen Datensatz aus"
Exit Sub
End If
'If The Report Dropdown is empty message to client
If Report <> "" Then
'Do Nothing (because dropdown is mot empty)
Else
MsgBox "Bitte wählen Sie ein Etikettenlayout aus"
Exit Sub
End If
MsgBox anzahl
'If Amount of copies is less than 1 message to client
If anzahl > 0 Then
On Error GoTo Error_MayCauseAnError
DoCmd.OpenReport Report, acViewReport 'Open report
DoCmd.PrintOut , , , , Copyes
DoCmd.Close Report ' Close the Report
이유 해결 방법을 지정하십시오 당신을 위해 불가능합니다. 인쇄물의 양은 부적합합니다. = 2로 :: = –
(https://msdn.microsoft.com/en-us/vba/excel-vba/articles/sheets-printout-method-excel) 'DoCMD.PrintOut 가입일이 [예]를 시도 3, 사본 :.. 3' –
내 손 :(를 벗어 그런 :( – kint