Alter Code for Batch Printing "Bob" <xxx[ at ]xx.xx> 30.09.2006 21:39:53 This is my code to print a statement by selecting date range and OwnerName, at the bottom of the code there is something about batch printing statements but it is greened out. Can I use this for batch printing all owners staements at todays date? Thanks for your Help......Bob Private Sub cmdStatement_Click() Select Case Me.OpenArgs Case "OwnerStatement" If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = vbNullString Then MsgBox "Please Select the Owner.", vbApplicationModal + vbInformation + vbOKOnly Exit Sub End If Me.Visible = False DoCmd.OpenReport "rptOwnerPaymentMethod", acViewPreview 'DoCmd.Close acForm, Me.Name Case "MonthlyPaid" Me.Visible = False DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , "MonthlyPaid" 'Report_rptGenericReport.tbTotal.value = SUM(Report_rptGenericReport.tbAmount) 'DoCmd.Close acForm, Me.Name 'Report_rptGenericReport.tbTotal = DSum(Report_rptGenericReport.tbAmount, "rptGenericReport") 'Report_rptGenericReport.tbTotal.ControlSource = "Sum(Report_rptGenericReport.tbAmount)" DoCmd.Close acForm, Me.Name Case "OwnerDue" Me.Visible = False DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , "OwnerDue" DoCmd.Close acForm, Me.Name Case "OwnerPaymentMethod" If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = vbNullString Then MsgBox "Please Select the Owner.", vbApplicationModal + vbInformation + vbOKOnly Exit Sub End If Me.Visible = False DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , "OwnerPaymentMethod" DoCmd.Close acForm, Me.Name Case "PaymentMethod" Dim nDateDiff As Integer, nSign As Integer nDateDiff = DateDiff("d", CDate(tbDateFrom.value), CDate(tbDateTo.value)) nSign = Sgn(nDateDiff) If nSign = -1 Or nSign = 0 Then MsgBox "Please Select Date In Proper Range.", vbApplicationModal + vbExclamation + vbOKOnly cmdCalenderTo.SetFocus Exit Sub End If Me.Visible = False DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , "PaymentMethod" DoCmd.Close acForm, Me.Name Case "PrintInvoiceBatch" If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or IsNull(tbDateTo.value) Or tbDateTo.value = "" Then MsgBox "Please Enter the Begining Date and End Date.", vbApplicationModal + vbInformation + vbOKOnly Exit Sub End If Me.Visible = False DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , "PrintInvoiceBatch" 'DoCmd.Close acForm, Me.Name Case "PrintStatementBatch" ' If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or IsNull(tbDateTo.value) Or tbDateTo.value = "" Then ' MsgBox "Please Enter the Begining Date and End Date.", vbApplicationModal + vbInformation + vbOKOnly ' Exit Sub ' End If Me.Visible = False DoCmd.OpenReport "rptOwnerPaymentMethodBatch", acViewPreview, , , , "PrintStatementBatch" 'DoCmd.Close acForm, Me.Name End Select 'DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , "PrintInvoiceBatch" End Sub

RE: Alter Code for Batch Printing Tom Wickerath 30.09.2006 23:28:01 Hi Bob, The easiest way to tell is to try it out. The code that you called "greened out" is more correctly termed commented out. For whatever reason, the person who wrote this code left it commented out. Perhaps they could not get it to work as expected, but they weren't ready to delete it. Make a back-up copy of your database first. Then try uncommenting the lines of code, by removing the leading apostrophe symbol. Click on Debug > Compile ProjectName when finished (where ProjectName is the name of your VBA project). Does your code compile properly? If so, this option should become greyed out. This line of code: DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , "PrintInvoiceBatch" indicates to me that the report named rptInvoiceBatch is being passed an OpenArg (PrintInvoiceBatch). You might open the code module associated with this report to see if there is any code that checks for an OpenArg and makes use of it. This would likely be in a report open event procedure. Tom Wickerath Microsoft Access MVP http://www.access.qbuilt.com/html/expert_contributors.html http://www.access.qbuilt.com/html/search.html __________________________________________ "Bob" wrote: [Quoted Text] > > > This is my code to print a statement by selecting date range and OwnerName, > at the bottom of the code there is something about batch printing > statements but it is greened out. Can I use this for batch printing all > owners staements at todays date? Thanks for your Help......Bob > > Private Sub cmdStatement_Click() > > Select Case Me.OpenArgs > > Case "OwnerStatement" > > If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = > vbNullString Then > MsgBox "Please Select the Owner.", vbApplicationModal + > vbInformation + vbOKOnly > Exit Sub > End If > > Me.Visible = False > DoCmd.OpenReport "rptOwnerPaymentMethod", acViewPreview > 'DoCmd.Close acForm, Me.Name > Case "MonthlyPaid" > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "MonthlyPaid" > 'Report_rptGenericReport.tbTotal.value = > SUM(Report_rptGenericReport.tbAmount) > 'DoCmd.Close acForm, Me.Name > 'Report_rptGenericReport.tbTotal = > DSum(Report_rptGenericReport.tbAmount, "rptGenericReport") > 'Report_rptGenericReport.tbTotal.ControlSource = > "Sum(Report_rptGenericReport.tbAmount)" > DoCmd.Close acForm, Me.Name > Case "OwnerDue" > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "OwnerDue" > DoCmd.Close acForm, Me.Name > Case "OwnerPaymentMethod" > > If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = > vbNullString Then > MsgBox "Please Select the Owner.", vbApplicationModal + > vbInformation + vbOKOnly > Exit Sub > End If > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "OwnerPaymentMethod" > DoCmd.Close acForm, Me.Name > > Case "PaymentMethod" > > Dim nDateDiff As Integer, nSign As Integer > nDateDiff = DateDiff("d", CDate(tbDateFrom.value), > CDate(tbDateTo.value)) > nSign = Sgn(nDateDiff) > > If nSign = -1 Or nSign = 0 Then > MsgBox "Please Select Date In Proper Range.", > vbApplicationModal + vbExclamation + vbOKOnly > cmdCalenderTo.SetFocus > Exit Sub > End If > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "PaymentMethod" > DoCmd.Close acForm, Me.Name > Case "PrintInvoiceBatch" > If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or > IsNull(tbDateTo.value) Or tbDateTo.value = "" Then > MsgBox "Please Enter the Begining Date and End Date.", > vbApplicationModal + vbInformation + vbOKOnly > Exit Sub > End If > Me.Visible = False > DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , > "PrintInvoiceBatch" > 'DoCmd.Close acForm, Me.Name > Case "PrintStatementBatch" > ' If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or > IsNull(tbDateTo.value) Or tbDateTo.value = "" Then > ' MsgBox "Please Enter the Begining Date and End Date.", > vbApplicationModal + vbInformation + vbOKOnly > ' Exit Sub > ' End If > Me.Visible = False > DoCmd.OpenReport "rptOwnerPaymentMethodBatch", acViewPreview, , , , > "PrintStatementBatch" > 'DoCmd.Close acForm, Me.Name > End Select > 'DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , > "PrintInvoiceBatch" > End Sub

RE: Alter Code for Batch Printing Tom Wickerath 30.09.2006 23:28:02 Hi Bob, The easiest way to tell is to try it out. The code that you called "greened out" is more correctly termed commented out. For whatever reason, the person who wrote this code left it commented out. Perhaps they could not get it to work as expected, but they weren't ready to delete it. Make a back-up copy of your database first. Then try uncommenting the lines of code, by removing the leading apostrophe symbol. Click on Debug > Compile ProjectName when finished (where ProjectName is the name of your VBA project). Does your code compile properly? If so, this option should become greyed out. This line of code: DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , "PrintInvoiceBatch" indicates to me that the report named rptInvoiceBatch is being passed an OpenArg (PrintInvoiceBatch). You might open the code module associated with this report to see if there is any code that checks for an OpenArg and makes use of it. This would likely be in a report open event procedure. Tom Wickerath Microsoft Access MVP http://www.access.qbuilt.com/html/expert_contributors.html http://www.access.qbuilt.com/html/search.html __________________________________________ "Bob" wrote: [Quoted Text] > > > This is my code to print a statement by selecting date range and OwnerName, > at the bottom of the code there is something about batch printing > statements but it is greened out. Can I use this for batch printing all > owners staements at todays date? Thanks for your Help......Bob > > Private Sub cmdStatement_Click() > > Select Case Me.OpenArgs > > Case "OwnerStatement" > > If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = > vbNullString Then > MsgBox "Please Select the Owner.", vbApplicationModal + > vbInformation + vbOKOnly > Exit Sub > End If > > Me.Visible = False > DoCmd.OpenReport "rptOwnerPaymentMethod", acViewPreview > 'DoCmd.Close acForm, Me.Name > Case "MonthlyPaid" > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "MonthlyPaid" > 'Report_rptGenericReport.tbTotal.value = > SUM(Report_rptGenericReport.tbAmount) > 'DoCmd.Close acForm, Me.Name > 'Report_rptGenericReport.tbTotal = > DSum(Report_rptGenericReport.tbAmount, "rptGenericReport") > 'Report_rptGenericReport.tbTotal.ControlSource = > "Sum(Report_rptGenericReport.tbAmount)" > DoCmd.Close acForm, Me.Name > Case "OwnerDue" > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "OwnerDue" > DoCmd.Close acForm, Me.Name > Case "OwnerPaymentMethod" > > If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = > vbNullString Then > MsgBox "Please Select the Owner.", vbApplicationModal + > vbInformation + vbOKOnly > Exit Sub > End If > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "OwnerPaymentMethod" > DoCmd.Close acForm, Me.Name > > Case "PaymentMethod" > > Dim nDateDiff As Integer, nSign As Integer > nDateDiff = DateDiff("d", CDate(tbDateFrom.value), > CDate(tbDateTo.value)) > nSign = Sgn(nDateDiff) > > If nSign = -1 Or nSign = 0 Then > MsgBox "Please Select Date In Proper Range.", > vbApplicationModal + vbExclamation + vbOKOnly > cmdCalenderTo.SetFocus > Exit Sub > End If > > Me.Visible = False > DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , > "PaymentMethod" > DoCmd.Close acForm, Me.Name > Case "PrintInvoiceBatch" > If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or > IsNull(tbDateTo.value) Or tbDateTo.value = "" Then > MsgBox "Please Enter the Begining Date and End Date.", > vbApplicationModal + vbInformation + vbOKOnly > Exit Sub > End If > Me.Visible = False > DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , > "PrintInvoiceBatch" > 'DoCmd.Close acForm, Me.Name > Case "PrintStatementBatch" > ' If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or > IsNull(tbDateTo.value) Or tbDateTo.value = "" Then > ' MsgBox "Please Enter the Begining Date and End Date.", > vbApplicationModal + vbInformation + vbOKOnly > ' Exit Sub > ' End If > Me.Visible = False > DoCmd.OpenReport "rptOwnerPaymentMethodBatch", acViewPreview, , , , > "PrintStatementBatch" > 'DoCmd.Close acForm, Me.Name > End Select > 'DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , > "PrintInvoiceBatch" > End Sub

Re: Alter Code for Batch Printing "Bob" <xxx[ at ]xx.xx> 01.10.2006 00:09:03 Hi Tom , the Invoice batch does work prints invoices by batch. I am trying to get Statements to do the same...Thanks bob "Tom Wickerath" <AOS168b AT comcast DOT net> wrote in message news:60C1E680-D308-452A-8320-EF8DBBD07F29[ at ]microsoft.com... [Quoted Text] > Hi Bob, > > The easiest way to tell is to try it out. The code that you called > "greened > out" is more correctly termed commented out. For whatever reason, the > person > who wrote this code left it commented out. Perhaps they could not get it > to > work as expected, but they weren't ready to delete it. > > Make a back-up copy of your database first. Then try uncommenting the > lines > of code, by removing the leading apostrophe symbol. Click on Debug > > Compile > ProjectName when finished (where ProjectName is the name of your VBA > project). Does your code compile properly? If so, this option should > become > greyed out. > > This line of code: > DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , > "PrintInvoiceBatch" > > indicates to me that the report named rptInvoiceBatch is being passed an > OpenArg (PrintInvoiceBatch). You might open the code module associated > with > this report to see if there is any code that checks for an OpenArg and > makes > use of it. This would likely be in a report open event procedure. > > > Tom Wickerath > Microsoft Access MVP > > http://www.access.qbuilt.com/html/expert_contributors.html > http://www.access.qbuilt.com/html/search.html > __________________________________________ > > "Bob" wrote: > >> >> >> This is my code to print a statement by selecting date range and >> OwnerName, >> at the bottom of the code there is something about batch printing >> statements but it is greened out. Can I use this for batch printing all >> owners staements at todays date? Thanks for your Help......Bob >> >> Private Sub cmdStatement_Click() >> >> Select Case Me.OpenArgs >> >> Case "OwnerStatement" >> >> If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = >> vbNullString Then >> MsgBox "Please Select the Owner.", vbApplicationModal + >> vbInformation + vbOKOnly >> Exit Sub >> End If >> >> Me.Visible = False >> DoCmd.OpenReport "rptOwnerPaymentMethod", acViewPreview >> 'DoCmd.Close acForm, Me.Name >> Case "MonthlyPaid" >> >> Me.Visible = False >> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >> "MonthlyPaid" >> 'Report_rptGenericReport.tbTotal.value = >> SUM(Report_rptGenericReport.tbAmount) >> 'DoCmd.Close acForm, Me.Name >> 'Report_rptGenericReport.tbTotal = >> DSum(Report_rptGenericReport.tbAmount, "rptGenericReport") >> 'Report_rptGenericReport.tbTotal.ControlSource = >> "Sum(Report_rptGenericReport.tbAmount)" >> DoCmd.Close acForm, Me.Name >> Case "OwnerDue" >> >> Me.Visible = False >> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >> "OwnerDue" >> DoCmd.Close acForm, Me.Name >> Case "OwnerPaymentMethod" >> >> If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = >> vbNullString Then >> MsgBox "Please Select the Owner.", vbApplicationModal + >> vbInformation + vbOKOnly >> Exit Sub >> End If >> >> Me.Visible = False >> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >> "OwnerPaymentMethod" >> DoCmd.Close acForm, Me.Name >> >> Case "PaymentMethod" >> >> Dim nDateDiff As Integer, nSign As Integer >> nDateDiff = DateDiff("d", CDate(tbDateFrom.value), >> CDate(tbDateTo.value)) >> nSign = Sgn(nDateDiff) >> >> If nSign = -1 Or nSign = 0 Then >> MsgBox "Please Select Date In Proper Range.", >> vbApplicationModal + vbExclamation + vbOKOnly >> cmdCalenderTo.SetFocus >> Exit Sub >> End If >> >> Me.Visible = False >> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >> "PaymentMethod" >> DoCmd.Close acForm, Me.Name >> Case "PrintInvoiceBatch" >> If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or >> IsNull(tbDateTo.value) Or tbDateTo.value = "" Then >> MsgBox "Please Enter the Begining Date and End Date.", >> vbApplicationModal + vbInformation + vbOKOnly >> Exit Sub >> End If >> Me.Visible = False >> DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , >> "PrintInvoiceBatch" >> 'DoCmd.Close acForm, Me.Name >> Case "PrintStatementBatch" >> ' If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or >> IsNull(tbDateTo.value) Or tbDateTo.value = "" Then >> ' MsgBox "Please Enter the Begining Date and End Date.", >> vbApplicationModal + vbInformation + vbOKOnly >> ' Exit Sub >> ' End If >> Me.Visible = False >> DoCmd.OpenReport "rptOwnerPaymentMethodBatch", acViewPreview, , , >> , >> "PrintStatementBatch" >> 'DoCmd.Close acForm, Me.Name >> End Select >> 'DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , >> "PrintInvoiceBatch" >> End Sub

Re: Alter Code for Batch Printing Tom Wickerath 01.10.2006 01:15:01 Hi Bob, Yes, I was talking about the commented out code for Case "PrintStatementBatch". It looks like the commented out lines of code were written to verify that a user entered dates in the tbDateFrom and tbDateTo textboxes. Add a break point to the beginning of your code module. To do this, click in the left-hand grey margin. You should see a maroon colored dot, along with the line of code being highlighted maroon. For example, do this on the first line of code that reads Select Case Me.OpenArgs. Add a line of code (just for testing) right after the first line of code: MsgBox Me.OpenArgs What OpenArg value do you see? Is is the text string: PrintStatementBatch ? Continue executing the code one-line-at-a-time, by pressing the F8 key. Does the appropriate branch of code get executed? Keep pressing the F8 key. Does the code for the rptOwnerPaymentMethodBatch report display? Is it making use of this openarg value that was passed to it? Note: To step through code, you must have the Special Keys option checked, under Tools > Startup. Tom Wickerath Microsoft Access MVP http://www.access.qbuilt.com/html/expert_contributors.html http://www.access.qbuilt.com/html/search.html __________________________________________ "Bob" wrote: [Quoted Text] > Hi Tom , the Invoice batch does work prints invoices by batch. I am trying > to get Statements to do the same...Thanks bob

Re: Alter Code for Batch Printing "Bob" <xxx[ at ]xx.xx> 01.10.2006 01:21:05 Got it to Work by using the Commented out , but now I am getting a error "Enter parameter Value, tbOwnerName" but after I OK it works fine....Thanks Bob Anything I can do with the error? "Bob" <xxx[ at ]xx.xx> wrote in message news:efn0sq$355$1[ at ]lust.ihug.co.nz... [Quoted Text] > Hi Tom , the Invoice batch does work prints invoices by batch. I am trying > to get Statements to do the same...Thanks bob > > "Tom Wickerath" <AOS168b AT comcast DOT net> wrote in message > news:60C1E680-D308-452A-8320-EF8DBBD07F29[ at ]microsoft.com... >> Hi Bob, >> >> The easiest way to tell is to try it out. The code that you called >> "greened >> out" is more correctly termed commented out. For whatever reason, the >> person >> who wrote this code left it commented out. Perhaps they could not get it >> to >> work as expected, but they weren't ready to delete it. >> >> Make a back-up copy of your database first. Then try uncommenting the >> lines >> of code, by removing the leading apostrophe symbol. Click on Debug > >> Compile >> ProjectName when finished (where ProjectName is the name of your VBA >> project). Does your code compile properly? If so, this option should >> become >> greyed out. >> >> This line of code: >> DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , >> "PrintInvoiceBatch" >> >> indicates to me that the report named rptInvoiceBatch is being passed an >> OpenArg (PrintInvoiceBatch). You might open the code module associated >> with >> this report to see if there is any code that checks for an OpenArg and >> makes >> use of it. This would likely be in a report open event procedure. >> >> >> Tom Wickerath >> Microsoft Access MVP >> >> http://www.access.qbuilt.com/html/expert_contributors.html >> http://www.access.qbuilt.com/html/search.html >> __________________________________________ >> >> "Bob" wrote: >> >>> >>> >>> This is my code to print a statement by selecting date range and >>> OwnerName, >>> at the bottom of the code there is something about batch printing >>> statements but it is greened out. Can I use this for batch printing all >>> owners staements at todays date? Thanks for your Help......Bob >>> >>> Private Sub cmdStatement_Click() >>> >>> Select Case Me.OpenArgs >>> >>> Case "OwnerStatement" >>> >>> If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = >>> vbNullString Then >>> MsgBox "Please Select the Owner.", vbApplicationModal + >>> vbInformation + vbOKOnly >>> Exit Sub >>> End If >>> >>> Me.Visible = False >>> DoCmd.OpenReport "rptOwnerPaymentMethod", acViewPreview >>> 'DoCmd.Close acForm, Me.Name >>> Case "MonthlyPaid" >>> >>> Me.Visible = False >>> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >>> "MonthlyPaid" >>> 'Report_rptGenericReport.tbTotal.value = >>> SUM(Report_rptGenericReport.tbAmount) >>> 'DoCmd.Close acForm, Me.Name >>> 'Report_rptGenericReport.tbTotal = >>> DSum(Report_rptGenericReport.tbAmount, "rptGenericReport") >>> 'Report_rptGenericReport.tbTotal.ControlSource = >>> "Sum(Report_rptGenericReport.tbAmount)" >>> DoCmd.Close acForm, Me.Name >>> Case "OwnerDue" >>> >>> Me.Visible = False >>> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >>> "OwnerDue" >>> DoCmd.Close acForm, Me.Name >>> Case "OwnerPaymentMethod" >>> >>> If IsNull(cbOwnerName.value) = True Or cbOwnerName.value = >>> vbNullString Then >>> MsgBox "Please Select the Owner.", vbApplicationModal + >>> vbInformation + vbOKOnly >>> Exit Sub >>> End If >>> >>> Me.Visible = False >>> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >>> "OwnerPaymentMethod" >>> DoCmd.Close acForm, Me.Name >>> >>> Case "PaymentMethod" >>> >>> Dim nDateDiff As Integer, nSign As Integer >>> nDateDiff = DateDiff("d", CDate(tbDateFrom.value), >>> CDate(tbDateTo.value)) >>> nSign = Sgn(nDateDiff) >>> >>> If nSign = -1 Or nSign = 0 Then >>> MsgBox "Please Select Date In Proper Range.", >>> vbApplicationModal + vbExclamation + vbOKOnly >>> cmdCalenderTo.SetFocus >>> Exit Sub >>> End If >>> >>> Me.Visible = False >>> DoCmd.OpenReport "rptGenericReport", acViewPreview, , , , >>> "PaymentMethod" >>> DoCmd.Close acForm, Me.Name >>> Case "PrintInvoiceBatch" >>> If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or >>> IsNull(tbDateTo.value) Or tbDateTo.value = "" Then >>> MsgBox "Please Enter the Begining Date and End Date.", >>> vbApplicationModal + vbInformation + vbOKOnly >>> Exit Sub >>> End If >>> Me.Visible = False >>> DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , >>> "PrintInvoiceBatch" >>> 'DoCmd.Close acForm, Me.Name >>> Case "PrintStatementBatch" >>> ' If IsNull(tbDateFrom.value) Or tbDateFrom.value = "" Or >>> IsNull(tbDateTo.value) Or tbDateTo.value = "" Then >>> ' MsgBox "Please Enter the Begining Date and End Date.", >>> vbApplicationModal + vbInformation + vbOKOnly >>> ' Exit Sub >>> ' End If >>> Me.Visible = False >>> DoCmd.OpenReport "rptOwnerPaymentMethodBatch", acViewPreview, , >>> , , >>> "PrintStatementBatch" >>> 'DoCmd.Close acForm, Me.Name >>> End Select >>> 'DoCmd.OpenReport "rptInvoiceBatch", acViewPreview, , , , >>> "PrintInvoiceBatch" >>> End Sub > >

Re: Alter Code for Batch Printing Tom Wickerath 01.10.2006 01:48:01 Okay, sounds like you are making progress! Try to determine if the source of this parameter error is in the report, or in the recordsource (likely a query or SQL statement) for the report in question. Open the report in design view. Click on View > Properties to display the Properties dialog (if it is not already displayed). Click on the small black square in the upper left corner, if necessary, to display the properties for the report. You should see the word "Report" in the blue title bar. Click on the Data tab. The first entry should be recordsource. Click into the recordsource. You should see a build button become visible (ie. a button with three dots, off to the right-hand side). Click on the build button. If you get a prompt that reads "You invoked the query builder on a table", then click No to dismiss. Otherwise, run the query by clicking on the Exclaimation mark. Do you get prompted for this parameter at this time? If the answer is Yes, then you need to fix the query. If the answer is No, then close the query builder without saving any changes. I'm assuming that tbOwnerName refers to a textbox, but it might be referring to a field. Click on View > Field List. Do you see this as a listed field name? Still in design view for your report, verify that you do not have a Filter property set to tbOwnerName. This property is just below the Record Source property. Then click on View > Sorting and Grouping. Verify that nothing named tbOwnerName is displayed in the list (if it is, then it must be available to the report in the Field List). Use a process of elimination to determine if the error is in a query that serves as the report's recordsource, or if the error is in the report itself. Tom Wickerath Microsoft Access MVP http://www.access.qbuilt.com/html/expert_contributors.html http://www.access.qbuilt.com/html/search.html __________________________________________ "Bob" wrote: [Quoted Text] > Got it to Work by using the Commented out , but now I am getting a error > "Enter parameter Value, tbOwnerName" but after I OK it works fine....Thanks > Bob > Anything I can do with the error?