Report print failing after upgrade to Windows 11

[nbdwt73]

I have an Access system (Office 2019) that has been running on Windows 10 until recently. I upgraded to Windows 11 and began having problems with printing reports. The VB code has 2 reports that print sequentially - see code:

stDocName = "Shipping_Report"
Set rs1 = CurrentDb.OpenRecordset("SELECT OrdersItems.*, Orders.OrderCustomer_Address1, Orders.DeliveryType, Orders.OrderCustomer_TruckStopNum, Orders.OrderCustomer_DelStopNum, Orders.PurchaseOrderNumber, Orders.Machine, Orders.RequiredByDate, Orders.OrderCustomer_CustomerType, Door_Type.TB_Panel FROM (OrdersItems INNER JOIN Door_Type ON Door_Type.[Door Type]=OrdersItems.DoorType) INNER JOIN Orders ON Orders.OrderID=OrdersItems.orderid WHERE ((((Orders.OrderCustomer_CustomerType)= 'Door') OR ((Orders.OrderCustomer_CustomerType) Is Null)) AND (Left(Orders.PurchaseOrderNumber,5) <> 'Quote') AND (Left(Orders.PurchaseOrderNumber,9) <> 'Inventory') AND (RIGHT(Orders.PurchaseOrderNumber,2) <> 'SO') AND (Orders.DeliveryType) = 'MM Truck' AND ((Orders.Machine) Is Null)) ORDER BY Orders.OrderCustomer_Address1")

If Not rs1.EOF Then
        DoCmd.OpenReport stDocName, acViewDesign, , , acHidden
        Reports(stDocName).RecordSource = ("SELECT OrdersItems.*, Orders.OrderCustomer_Address1, Orders.OrderCustomer_TruckStopNum, Orders.OrderCustomer_DelStopNum, Orders.PurchaseOrderNumber, Orders.Machine, Orders.RequiredByDate, Orders.OrderCustomer_CustomerType, Door_Type.TB_Panel FROM (OrdersItems INNER JOIN Door_Type ON Door_Type.[Door Type]=OrdersItems.DoorType) INNER JOIN Orders ON Orders.OrderID=OrdersItems.orderid WHERE ((((Orders.OrderCustomer_CustomerType)= 'Door') OR ((Orders.OrderCustomer_CustomerType) Is Null)) AND (Left(Orders.PurchaseOrderNumber,5) <> 'Quote') AND (RIGHT(Orders.PurchaseOrderNumber,2) <> 'SO') AND (Left(Orders.PurchaseOrderNumber,9) <> 'Inventory') AND (Orders.DeliveryType) = 'MM Truck' AND ((Orders.Machine) Is Null)) ORDER BY Orders.OrderCustomer_Address1")
        DoCmd.OpenReport stDocName, acViewNormal
        DoCmd.Close acReport, "Shipping_report", acSaveNo
    End If
    rs1.Close


        stDocName = "Packing List"
        Set rs1 = CurrentDb.OpenRecordset("SELECT Orders.OrderID, Orders.CustomerFullName, Orders.OrderCustomer_Address1, Orders.Ordercustomer_Address2, Orders.DeliveryType, Orders.OrderCustomer_TruckStopNum, Orders.OrderCustomer_ShipDayNumber, Orders.OrderCustomer_DelStopNum, Orders.Ordercustomer_city, Orders.Ordercustomer_state, Orders.Ordercustomer_postalcode, Orders.OrderCustomer_Phone, Orders.OrderCustomer_Fax, Orders.OrderCustomer_terms, Orders.OrderDate, Orders.PurchaseOrderNumber, Orders.RequiredByDate, Orders.PromisedByDate, Orders.OrderName, Orders.Machine, Orders.inventory, Orders.Shipped, Orders.Invoice, Orders.FullName " _
            & "FROM Orders " _
            & "WHERE ((Orders.Machine) Is Null) AND ((Orders.DeliveryType) = 'MM Truck') AND (Left(Orders.PurchaseOrderNumber,5) <> 'Quote') AND (Left(Orders.PurchaseOrderNumber,9) <> 'Inventory') AND (RIGHT(Orders.PurchaseOrderNumber,2) <> 'SO') AND ((Orders.OrderCustomer_CustomerType) = 'Door') AND ((Orders.OrderCustomer_Address1) <> 'Inventory') AND LEFT(Orders.OrderCustomer_Address1,6) <> 'Marwin';")
        If Not rs1.EOF Then
            DoCmd.OpenReport stDocName, acViewDesign, , , acHidden
            Reports(stDocName).RecordSource = ("SELECT Orders.OrderID, Orders.CustomerFullName, Orders.OrderCustomer_Address1, Orders.Ordercustomer_Address2, Orders.OrderCustomer_TruckStopNum, Orders.OrderCustomer_ShipDayNumber, Orders.OrderCustomer_DelStopNum, Orders.Ordercustomer_city, Orders.Ordercustomer_state, Orders.Ordercustomer_postalcode, Orders.OrderCustomer_Phone, Orders.OrderCustomer_Fax, Orders.OrderCustomer_terms, Orders.OrderDate, Orders.PurchaseOrderNumber, Orders.RequiredByDate, Orders.PromisedByDate, Orders.OrderName, Orders.Machine, Orders.inventory, Orders.Shipped, Orders.Invoice, Orders.FullName " _
                & "FROM Orders " _
                & "WHERE ((Orders.Machine) Is Null) AND ((Orders.DeliveryType) = 'MM Truck') AND ((Orders.OrderCustomer_CustomerType) = 'Door') AND (Left(Orders.PurchaseOrderNumber,5) <> 'Quote') AND (Left(Orders.PurchaseOrderNumber,9) <> 'Inventory') AND (RIGHT(Orders.PurchaseOrderNumber,2) <> 'SO') AND ((Orders.OrderCustomer_Address1) <> 'Inventory') AND LEFT(Orders.OrderCustomer_Address1,6) <> 'Marwin' " _
                & "ORDER BY Orders.RequiredByDate, Orders.OrderCustomer_Address1, Orders.PurchaseOrderNumber;")
            DoCmd.OpenReport stDocName, acViewPreview
            DoCmd.PrintOut , , , , 2, 0
            DoCmd.Close acReport, stDocName, acSaveNo
        End If
        rs1.Close

Since the upgrade to Windows 11 the first report prints fine but the second does not print - no error, no message. If I flip the code so that the Packing List report is first then it will print and the other will not. I have tried other printers - no change. Seems related purely to Windows 11. This is happening in the system wherever I have multiple reports to print - not isolated to just these)

One interesting clue - if I insert something like a msgbox question (Print report, YesNo) between the reports it works.

Please suggest some idea!

[June7]

Have you tried on another computer with Windows11?

[Welshgasman]

If you are going to muck around with reports in design mode at runtime, I would at least be saving it, before reopening in normal mode.

Walk your code and see what it does.

Also please place blocks of code within code tags.

As the data appears to be all harcoded, why can you not use queries for the source?

[nbdwt73]

We are in the process of moving all our machines to Windows 11. This problem occurs on all of the upgraded machines but works fine on the Windows 10 machines. All machines are running Office 2019.

[nbdwt73]

Thanks for the reply... Oddly enough if I walk thru the code (F8) it works as it should (produces the 2 reports). This problem occurs only when run normally.

[Welshgasman]

Perhaps a timing issue then?
Put a delay loop between them for a few seconds?

[davegri]

Between the reports try:

DoEvents: DoEvents

[nbdwt73]

SOLVED! Thanks for everyone's help here. I have learned another important lesson - never trust Microsoft (or in my case Canon) to confirm driver compatibilities - do it yourself. Turns out that the windows 11 print driver for Canon printers has an interesting bug. All of our laser printers are Canon - I borrowed an HP from a business nearby. Works fine...

I have tried several other drivers for the Canon printers (both Canon and MS) - none work... New printers for us.

[Welshgasman]

Well the doevents would not hurt and possibly save a ton of money?