PRINT NON SEQUENTIAL PAGES

[abagorro]

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

 

[Legacy 98055]

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]

How About:

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