Microsoft Office Forums - View Single Post

trevorc · 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