Closed Thread
Results 1 to 2 of 2
  1. #1
    Registered User
    Join Date
    05-26-2009
    Location
    London, England
    MS-Off Ver
    Excel 2003
    Posts
    94

    printing to specific tray(s)

    hello,

    i need to setup a macro (in word2007) which allows me to print to a non-default printer and so that page 1 prints in tray 3 and the remaining pages print to tray 4 (headed and continuation paper)

    I've found this macro:

    Code:
    Sub HPPrintTray2()
    Dim sCurrentPrinter As String
    
    Dim sTray As Integer
    
    sCurrentPrinter = ActivePrinter
    sTray = Options.DefaultTrayID
    
    ActivePrinter = "HP LaserJet 4050 Series PS"
    With Options
        .DefaultTrayID = 260
    End With
    Application.PrintOut FileName:=""
    With Options
        .DefaultTrayID = sTray
    End With
    ActivePrinter = sCurrentPrinter
    End Sub
    which seems to work fine for 1 tray, but i think i need to amend it somehow with the following:

    Code:
    .FirstPageTray = 259
        .OtherPagesTray = 260
    can anyone show me how to successfully combine the two?!

    Many thanks

  2. #2
    Forum Moderator shg's Avatar
    Join Date
    06-21-2007
    Location
    The Great State of Texas
    MS-Off Ver
    2003, 2007
    Posts
    25,134

    Re: printing to specific tray(s)

    Duplicate post, thread closed.
    Microsoft MVP - Excel
    Entia non sunt multiplicanda sine necessitate

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.2.0