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.