andybrooke
asked on
Clean up very dirty code and simplify its task to print a specified number of pages
Hi EE.
I have created VBA that works but is very dirty code. And is infinate. Can anyone help me rewrite this to be clean. as my code is so long i have only pasted the first few lines but you will see and guess what the rest would say:
The code is to simply print a report but print as many pages as what number appears in a specific field.
I.E. if the field says number "3" then it prints 3 pages. If it says "5" then it prints 5. and so on. as a number from 1 - 99 can be selected you can imagine how long the code is.
I have created VBA that works but is very dirty code. And is infinate. Can anyone help me rewrite this to be clean. as my code is so long i have only pasted the first few lines but you will see and guess what the rest would say:
The code is to simply print a report but print as many pages as what number appears in a specific field.
I.E. if the field says number "3" then it prints 3 pages. If it says "5" then it prints 5. and so on. as a number from 1 - 99 can be selected you can imagine how long the code is.
If Me.Combo1156 = "1" Then
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
End If
If Me.Combo1156 = "2" Then
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
End If
If Me.Combo1156 = "3" Then
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
End If
If Me.Combo1156 = "4" Then
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
End If
Last Comment
to a[pply the criteria
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
DoCmd.PrintOut acPages, , , , cint(Me.Combo1156)
stDocName = "rptDMPLOA"
stLinkCriteria = "[PPIClientID]=" & Me![PPIClientID]
DoCmd.OpenReport stDocName, acNormal, , stLinkCriteria
DoCmd.PrintOut acPages, , , , cint(Me.Combo1156)
ASKER CERTIFIED SOLUTION
THIS SOLUTION IS ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
Microsoft Access
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
226K
Questions
--
Followers
--
Top Experts
Get a personalized solution from industry experts
TRUSTED BY
you can use this codes to print multiple copies of report
stDocName = "rptDMPLOA"
DoCmd.SelectObject acReport, stDocName, True
'
DoCmd.PrintOut , , , , cint(Me.Combo1156)
where are you calling the codes?