Microsoft Office Forums - View Single Post - Printing with DisplayAlerts to suppress margin warnings not working

darkmich · 06-07-2017, 06:19 PM

I've got a Word macro that's set up to ask for some input, access an Excel spreadsheet to get the remaining data, put that into a label with a QR barcode, and print. My problem is in printing - I get the margin/page size warnings whenever I print to the label printer. I had successfully used Application.DisplayAlerts to suppress them using the following subroutine that I call when printing:

Code:

Sub Print_ShowNoMarginsWarning_DoNotShowPrintDialog()
    With Application
        'Turn off DisplayAlerts
        .DisplayAlerts = 0

        'Print document
        'Background print must be turned off to prevent message
        .PrintOut Background:=False, Range:=wdPrintFromTo, From:="1", To:="1"
        
        'Turn on DisplayAlerts again
        .DisplayAlerts = wdAlertsAll
    End With
End Sub

However, we just got a second label printer, as we print two types of labels depending on what they're being put on to. I therefore edited the code along these lines:

Code:

    If Tissue = "10%" Then
        Printer_Name = "CVM-215-VS33-ZEB1"
    Else
        Printer_Name = "ZDesigner TLP 2844"
    EndIf

With Application
    sCurrentPrinter = .ActivePrinter
    .ActivePrinter = Printer_Name
    For A = 1 To copies
        Call Print_ShowNoMarginsWarning_DoNotShowPrintDialog
    Next
    .ActivePrinter = sCurrentPrinter
End With

While this works to print labels to the correct printers, ONE of the printers is still printing the margin warning, while the other works as I expect. Any thoughts? This has been driving me crazy all day.