I use the following code on an Argox OS 2014plus label printer, and it works fine but prints one blank label between every printed label. How can i modify the code to move back to the blank label, to prevent wastage..
I select the labels to be printed on a form using a tick box, it's filtered accordingly in a query, before been outputted to a label report and printed.
Please advise
[IMGNOTHUMB]http://bytes.com/attachments/attachment/7795d1407062296/ashampoo_snap_2 014.08.03_12h34 m39s_001.jpg[/IMGNOTHUMB]
I select the labels to be printed on a form using a tick box, it's filtered accordingly in a query, before been outputted to a label report and printed.
Code:
If Me.meds.Value = "-1" Then defPrinter = Application.Printer.DeviceName Set NewPrinter = Application.Printers("Argox OS-214v PPLB") Set Application.Printer = NewPrinter DoCmd.OpenReport "lblClientMeds1", acViewNormal DoCmd.close acReport, "lblClientMeds1", acSaveNo Set NewPrinter = Application.Printers(defPrinter) Set Application.Printer = NewPrinter End If Me.meds.Value = ""
[IMGNOTHUMB]http://bytes.com/attachments/attachment/7795d1407062296/ashampoo_snap_2 014.08.03_12h34 m39s_001.jpg[/IMGNOTHUMB]
Comment