PRINT NON SEQUENTIAL PAGES

abagorro · Apr 2nd, 2002, 01:55 AM

How can I build a macro that prints page 1 and 5 of a selection? (the printing menu only has the option to print FROM page x TO page y...)

Tom Schreiner · Apr 2nd, 2002, 03:43 AM

Hi

To "build" this macro, do the following:

Start recording
Name your macro

Select the print area for page 1
Set the print area for page 1 on file menu
Print it

Select the print area for page 5
Set the print area for page 5 on file menu
Print it

Stop Recording

Have a nice day!
Tom

[ This Message was edited by: TsTom on 2002-04-02 02:44 ]

Dave Hawley · Apr 2nd, 2002, 04:19 AM

How About:

Code:

Sub PrintIt()
Dim strAdd As String
  strAdd = Selection.Address
       Sheets(1).Range(strAdd).PrintOut
       Sheets(5).Range(strAdd).PrintOut
End Sub

_________________
Kind Regards
Dave Hawley
OzGrid Business Applications
Microsoft Excel/VBA Training

[ This Message was edited by: Dave Hawley on 2002-04-02 03:47 ]

Apr 2nd, 2002, 04:19 AM	#3
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	How About: Code: Sub PrintIt() Dim strAdd As String strAdd = Selection.Address Sheets(1).Range(strAdd).PrintOut Sheets(5).Range(strAdd).PrintOut End Sub _________________ Kind Regards Dave Hawley OzGrid Business Applications Microsoft Excel/VBA Training [ This Message was edited by: Dave Hawley on 2002-04-02 03:47 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 2nd, 2002, 01:55 AM	#1
abagorro New Member Join Date: Apr 2002 Posts: 1	How can I build a macro that prints page 1 and 5 of a selection? (the printing menu only has the option to print FROM page x TO page y...)

Apr 2nd, 2002, 03:43 AM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi To "build" this macro, do the following: Start recording Name your macro Select the print area for page 1 Set the print area for page 1 on file menu Print it Select the print area for page 5 Set the print area for page 5 on file menu Print it Stop Recording Have a nice day! Tom [ This Message was edited by: TsTom on 2002-04-02 02:44 ]