Run-time error 3021 when attempting to Print

[dzirkelb]

We are upgrading one of our servers, and when i simply copied the entire Access database (that has worked for years with no issues) to the new server, i get an erorr when trying to print:

Run-time error '3021': No Current Record

I have some code in place that runs a query to get the variable intCountOfPackSlips. Then, if that count is > 0, I print a pack slip.

In the example i'm testing with (again, works perfectly fine on other server), the Coun to Pack slips is 1. Here is the relevenat code that is erroring out:

        If intCountOfPackSlips > 0 Then
            DoCmd.SelectObject acReport, "PACKING SLIP-A", True
            DoCmd.PrintOut acPrintAll, , , , intCountOfPackSlips
        End If

The actual error code is DoCmd.PrintOut acPrintAll, , , , intCountOfPackSlips.

When i review the report itself, it has data and i can print manually.

What could cause this issue / what other information is needed?

 

[moke123]

Why not open the report with acViewNormal which sends it to the printer?

 

[dzirkelb]

I don't have any specific reason besides it works on the old server, so I left as is. Is this what you are suggesting i should change below? I'm not good with Access VBA (or VBA in general) outside of datra manipulation (calling data, updating, querying, etc).

       If intCountOfPackSlips > 0 Then
            DoCmd.SelectObject acViewNormal, "PACKING SLIP-A", True
            DoCmd.PrintOut acPrintAll, , , , intCountOfPackSlips
        End If

 

[The_Doc_Man]

When you upgraded the server, did you upgrade its drivers for each remove printer you have? There is a "generic" Windows printer driver that will work for networked printers, but if you have the vendor's preferred driver it will work better. This is to be taken as a "stab in the dark" suggestion.

 

[moke123]

DoCmd OpenReport in Microsoft Access - Blue Claw Database Developer Resource

Open Access reports using visual basic openreport command. Review Access database docmd open report sample code.

blueclawdb.com

DoCmd.OpenReport method (Access)

Office VBA reference topic

learn.microsoft.com

AcView enumeration (Access)

Office VBA reference topic

learn.microsoft.com

 

[dzirkelb]

When you upgraded the server, did you upgrade its drivers for each remove printer you have? There is a "generic" Windows printer driver that will work for networked printers, but if you have the vendor's preferred driver it will work better. This is to be taken as a "stab in the dark" suggestion.

I used the same drivers as installed on server 2012 to server 2022. The printers appear to be working fine when print jobs are sent to them manually.

 

[dzirkelb]

DoCmd OpenReport in Microsoft Access - Blue Claw Database Developer Resource

Open Access reports using visual basic openreport command. Review Access database docmd open report sample code.

blueclawdb.com

DoCmd.OpenReport method (Access)

Office VBA reference topic

learn.microsoft.com

AcView enumeration (Access)

Office VBA reference topic

learn.microsoft.com

Thank you - reviewing now and hope to do something today. Had a guy quit on me last week so having to pick up his workload, sorry for lack of reponses.

 

[dzirkelb]

DoCmd OpenReport in Microsoft Access - Blue Claw Database Developer Resource

Open Access reports using visual basic openreport command. Review Access database docmd open report sample code.

blueclawdb.com

DoCmd.OpenReport method (Access)

Office VBA reference topic

learn.microsoft.com

AcView enumeration (Access)

Office VBA reference topic

learn.microsoft.com

I can see the job spooling in the printer queue, it appears to print, but i then get an error on access stating "Run-time error '2212': Microsoft Access couldn't print your object". The application then is stuck and can not move forward without intervention, and the rest of the code stops. Below is what i have coded, what should I try next?

        If intCountOfPackSlips > 0 Then
            DoCmd.OpenReport "PACKING SLIP-A", acViewPreview
            DoCmd.PrintOut acPrintAll, , , , intCountOfPackSlips
        End If

 

[moke123]

Have you tried

DoCmd.OpenReport "PACKING SLIP-A", acViewNormal

which will send the report straight to the default printer?

 

[dzirkelb]

Have you tried

DoCmd.OpenReport "PACKING SLIP-A", acViewNormal

which will send the report straight to the default printer?

I get the same issue - sends the print job but gives same error.

 

[moke123]

Check your printer settings in print preview?

 

[dzirkelb]

it prints fine, just throws the error, causing the rest of the automation to fail.

 

[dzirkelb]

I have narrowed the issue to be specific to this report, and a plugin we use to generate bar codes. Thank you for all the help, but this is now a development issue that I need to figure out with the bar code company.