How to force Set the number of printed pages (in this case 2) range

Question

How to make a range in Excel VBA say ("a1: z60") to print ONLY a page with two pages (1) from ("a1: z40") and page (2) from ("a41: z60"),

Also, separately, how can I get the same range to say ("a1: z60") to print ONLY pages with two pages (1) from ("a1: p60") and pages (2) from ("q1: z60") )

In addition, I want the scale to be the maximum possible (under the given conditions) for each of my two pages.

Many thanks

Answer 1

To print the selection on the page:

Range("A1:E44").Select With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With Selection.PrintOut Copies:=1 

change the range to whatever range you need, and change the page width and height to the way you want the page to appear.