Print First Two pages in First Page Tray & remang. in other pages
in [Word VBA]
|
Prev: Printing first two pages in Tray 1 and subsequent pages in Tray 2
Next: Ribbon - Togglebutton for custom style
From: Sivakumar on 4 Jun 2010 05:36 I use one tray for Headed Paper and another for plain paper. Using macro i print first page of the document to the headed paper and remaining pages in plain paper tray correctly. Now to be more eco-friendly, to avoid wastage of papers, i need to print the second page of the document to the headed paper back side. So ideally i need to Print First Two pages in First Page Tray & remaining pages in other pages tray (which is already duplexed). Need to if this is possible. Code --declare Dim sPrinterName$ Dim sPortName$ Dim nFirstPageTray Dim nOtherPagesTray -- assignment sPrinterName$ = 'assign print name sPortName$ = 'assign port name nFirstPageTray = ' assign "First Page Tray" nOtherPagesTray = ' assign "Other Pages Tray" --Set print details WordBasic.FilePrintSetup Printer:=sPrinterName$ + " on " + sPortName$, DoNotSetAsSysDefault:=1 --Set the trays WordBasic.FilePageSetup applypropsto:=4, FirstPage:=nFirstPageTray, OtherPages:=nOtherPagesTray --Print the ducment WordBasic.FilePrint Background:=1 Thanks Sivakumar
From: Graham Mayor on 4 Jun 2010 07:10
See your post in the pagelayout group. Please do not multi-post -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> "Sivakumar" <Sivakumar(a)discussions.microsoft.com> wrote in message news:06C5DC2B-B8C8-46A4-9982-446AC0488271(a)microsoft.com... >I use one tray for Headed Paper and another for plain paper. > Using macro i print first page of the document to the headed paper and > remaining pages in plain paper tray correctly. > > Now to be more eco-friendly, to avoid wastage of papers, i need to print > the > second page of the document to the headed paper back side. > > So ideally i need to Print First Two pages in First Page Tray & remaining > pages in other pages tray (which is already duplexed). > > Need to if this is possible. > > Code > --declare > Dim sPrinterName$ > Dim sPortName$ > Dim nFirstPageTray > Dim nOtherPagesTray > > -- assignment > sPrinterName$ = 'assign print name > sPortName$ = 'assign port name > nFirstPageTray = ' assign "First Page Tray" > nOtherPagesTray = ' assign "Other Pages Tray" > > --Set print details > WordBasic.FilePrintSetup Printer:=sPrinterName$ + " on " + sPortName$, > DoNotSetAsSysDefault:=1 > > --Set the trays > WordBasic.FilePageSetup applypropsto:=4, FirstPage:=nFirstPageTray, > OtherPages:=nOtherPagesTray > > --Print the ducment > WordBasic.FilePrint Background:=1 > > Thanks > Sivakumar > |