Results 1 to 4 of 4

Printer Macro to change printers

Threaded View

  1. #1
    Registered User
    Join Date
    09-02-2012
    Location
    Newcastle, Australia
    MS-Off Ver
    Excel 2003
    Posts
    1

    Printer Macro to change printers

    The macro listed below allows changing printers. I can change from MX880 to MX850 but it wil not change back. It says the MX850 is the active printer and do I want to change to MX850. What is wrong with my code.
    If ActivePrinter = "Canon MX850 series Printer" Then
        AlternatePrinter = "Canon MX880 series Printer:"
        Else
        AlternatePrinter = "Canon MX850 Series Printer"
        End If
        userReply = MsgBox("Active printer is " & ActivePrinter & vbCrLf & "Do you want to change this to " & AlternatePrinter & "?", vbYesNo + vbQuestion, "Printer Selection")
        If userReply = vbYes Then
    ActivePrinter = AlternatePrinter
        End If
    End Sub
    Last edited by arlu1201; 09-03-2012 at 04:36 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1