Print two different worksheets.........ahgggggggggggg

[smm3]

I've been trying to work out how to create a marco that will print out two different worksheets in one workbook. I need to print out the only worksheet page on tab "2nd request" and page 2 of a worksheet from tab"Checklist. I tried a macro but that didn't work. I tried to use ranges, but "2nd request "didn't print and "Checklist" printed the entire 4 pages. I found I can't set the print area for 4 pages and have it only print page 2 later. Since I'll be using both the 4 page print out and the 2 page printout from different worksheets many times during a day, I'll be changing the print area back and forth till my hair falls out.

If anybody has any ideas, it would be greatly appreciated.

Vickie
''

 

[chiello]

I have not a working printer, so I can't test the statement for printing to file (italic and bold code).
However, If you have problems with "print area" and printing a page to a file, you can store print area, clear it, print to file and restore old print area.
Try the code below:

Dim StrPrintArea as String
'Store Old Print Area
StrPrintArea = Sheets("2nd request").PageSetup.PrintArea
'Clear Print Area
Sheets("2nd request").PageSetup.PrintArea = ""

Sheets("2nd request").PrintOut From:=1, To:=1, PrintToFile:=True, PrToFileName:="FileName" 'Print to file NOT TESTED
'Restore Old Print Area
Sheets("2nd request")..PageSetup.PrintArea = StrPrintArea

'Repeat above procedure for Sheet "Checklist"

...

Ciao

 

[smm3]

I didn't work, but I'm unsure if it really didn't work or if I didn't put it in correctly.
I copied the code and inserted "checklist" in place of "2nd request" and put them both in view code area.

Vickie

 

[Tonyson]

Why not just record a macro, print the first page than go to 2nd request!worksheet, highlight page 2 and print and stop recording.
Edit the marcro to include Application.ScreenUpdating=False at the start of the macro and Application.ScreenUpdating=Trud and the end.

 

[golf4]

Hi, Vickie -

Give this a try:

Sub Printsheets()
'Change the below Sheet4 to correspond to your sheet number for your tab'
Sheet4.Select
Sheet4.PrintOut

'Change the below Sheet2 to correspond to your sheet number for your tab'
Sheet2.Select
Sheet2.PrintOut

'Change the below [a1] to the cell in which you want to return to once printing is completed'
[a1].Select
End Sub

HTH,
Frank

 

[smm3]

I've spent the last few days trying all of the above. I can't get the macro to work...it didn't print either page. I tried all the code suggestions, but it prints all the pages on the sheet.
I thought and tried to copy the second page and put it on the first page I want to print. I just can't get it to link correctly. Part of the link works but not all.

ahggggggg
If anyone has suggestions or ideas, I'm completely open.
Thanks,
Vickie