Printer select question.

Taffer

New Member
Joined
Jan 10, 2010
Messages
18
Why am I getting this error when using this application? I can't seem to track why this is triggering an error.

run-time error, '1004':, method, 'ActivePrinter', object, '_Application', failed

Code:
Sub PrinterSelect()
    Dim PrinterFullName As String
 
    If CampusCardAHcbx.Value = "H" Then
        PrinterFullName = "H3005_S1DIETMGR_131_216 on 3"
    ElseIf CampusCardAHcbx.Value = "O" Then
        PrinterFullName = "H3005_O1_19_182 on 2"
    ElseIf CampusCardAHcbx.Value = "K" Then
        PrinterFullName = "H4345_T1_203_53 on 1"
    Else
        PrinterFullName = "H9050_O7300_2CPYCNTR_35_51 on PS03"
    End If
 
  [COLOR=red][B]  Excel.Application.ActivePrinter = PrinterFullName[/B][/COLOR]
 
    '---------------------------------------------------------------------
    '- IF PRINTER FOUND
    If Err.Number = 0 Then
        If CampusCardAHcbx.Value = "H" Or CampusCardAHcbx.Value = "O" Or CampusCardAHcbx.Value = "K" Then
            '-----------------------------------------------------------------
            'ALTERNATIVE LINES OF CODE TO SAVE PAPER WHEN TESTING
            'Sheets("Order Ticket").PrintOut            ' PRINT SHEET
            Sheets("Order Ticket").PrintPreview       ' PRINT PREVIEW TO TEST
            '-----------------------------------------------------------------
            MsgBox ("Printed on printer" & vbCr & PrinterFullName & "to" & CampusCardAHcbx.Value)
        Else
 
            MsgBox ("Printed on printer" & vbCr & PrinterFullName & " to Service Center Printer")
        End If
    Else
        Err.Clear   ' clear for next error
        MsgBox (PrinterFullName & vbCr & "Error: Printer not found")
    End If
End Sub
 

Some videos you may like

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.

Derek Brown

Well-known Member
Joined
Dec 26, 2005
Messages
2,390
You may find that there should be a ":" at the end of the printer name.
Try setting that printer as your default printer, in Control Panel, and then use the Immediate Window to print the name:
? Excel.Application.ActivePrinter

Don't forget to reset the default printer afterwards.
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,788
Messages
5,513,450
Members
408,953
Latest member
Skiig

This Week's Hot Topics

  • Sort code advice please
    Hi, I have the code below which im trying to edit but getting a little stuck. This was the original code which worked fine,columns A-F would sort...
  • SUMPRODUCT with nested If statement
    Hi everyone, Hope you're all well. I'm hoping someone will be able to point me in the right direction with a problem I'm having with a SUMPRODUCT...
  • VBA - simple sort is killing me!
    Hello all! This should be so easy, but not for me, apparently! I have a table of data that can be of varying lengths and widths. My current macro...
  • Compare Two Lists
    I have two Lists and I need to be able to Identify differences between them. List 100 comes from a workbook - the other is downloaded form the...
  • Formula that deducts points for each code I input.
    I am trying to create a formula that will have each student in my class start at 100 points and then for each code that I enter (PP for Poor...
  • Conditional formatting formula required for day of week and a value
    Hi, I have a really simple spreadsheet where column A is the date, column B is the activity total shown as a number and column C states the day of...
Top