Still on this printer thing

trevorc · #1 07-22-2020, 01:25 PM

Why doesn't the line of code below work, its in a standard module

Dim prtPrinter As Printer

It just errors out with User defined type not defined

How do I define Printer so i can then Dim prtPrinter as one ???
Everything else is working ok, if i use the .PrintOut Copies:=3, preview:=True method I can preview this but don't get the full - print preview and print dialog

I just need to incorporate setting the number of copies into my code

Here's my full routine

Code:

Sub AAA()

    Dim prtPrinter As Printer
   
   Application.EnableEvents = False
    Select Case ActiveSheet.Name
        Case Is = "Mac Label"
            Application.ActivePrinter = "\\U2-front-desk\bixolon slp-d420 on Ne05:"
        Case Is = "Address Label"
            Application.ActivePrinter = "ZDesigner GK420t on 9100"
        Case Is = "BinBot Part Labels"
            Set prtPrinter.Copies = 2
            Application.ActivePrinter = "ZDesigner GK420t on 9100"
        Case Is = "Repair Labels"
            Application.ActivePrinter = "\\U2-front-desk\bixolon slp-d420 on Ne05:"
        Case Is = "RMA Labels"
            Application.ActivePrinter = "\\U2-front-desk\TSC TTP-346M Pro on Ne06:"
        Case Else
            Application.ActivePrinter = "Brother DCP-7065DN Printer on Ne04:"
    End Select
    t = Application.Dialogs(xlDialogPrint).Application
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
    Application.EnableEvents = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I put thing in Word ANYWHERE?	greenagent	Word	6	03-06-2019 03:17 AM
Want to remove this square thing	tonythegreek	Word	1	09-22-2018 02:08 PM
This thing is driving me nuts	cachaco	Word	6	06-25-2015 04:40 AM
Printer Problems-Need to reload printer each day	jekronenfeld	Windows	1	11-24-2014 12:35 AM
MS Word 2003, printer queue in 'printer properties' shows 1 job; no job in printer	benhuxham	Word	0	07-25-2011 06:58 PM