set print area for multiple sheet at the same time

[romeo16]

I have a file that contains 25 worksheets w/ all same formatting.
Now, I need to set the print area to A1:N58 for sheets("firstone") and set the print area to A1:N40 for sheets("secondone"). I only know how to do this for 1 worksheet (activesheet) at a time. Below is what i used.

sheets("firstone").select
sheets("firstone").Range("A1:N58").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$58"



How do I apply the print area to all 2 sheets at the same time and then have all 2 worksheets printed at once?

 

[yky]

[I]sheets("firstone").select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$58"
[/I]ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""

[I]sheets("[/I][COLOR=#333333]secondone[/COLOR][I]").select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$40"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
[/I]

 

[romeo16]

[I]sheets("firstone").select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$58"
[/I]ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""

[I]sheets("[/I][COLOR=#333333]secondone[/COLOR][I]").select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$40"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
[/I]

Thanks for your reply , unfortunately I don't want to print them out right away , I want just to see them when I go in print preview?

 

[yky]

Thanks for your reply , unfortunately I don't want to print them out right away , I want just to see them when I go in print preview?

Didn't you write "have all 2 worksheets printed at once"?


You cannot open two preview windows at once. You have to close the first preview window before the second one appears.

Sheets("DIC42").SelectActiveSheet.PageSetup.PrintArea = "$A$1:$M$3"
ActiveSheet.PrintPreview (True)
'ActiveSheet.PageSetup.PrintArea = ""

Sheets("DIC52").Select
ActiveSheet.PageSetup.PrintArea = "$A$10:$M$12"
ActiveSheet.PrintPreview ()
'ActiveSheet.PageSetup.PrintArea = ""

 

[romeo16]

So you can't set the 2 worksheets to be displayed on one print preview window as 2 pages?

 

[yky]

You can copy the print areas to one sheet and see them in print preview.

 

[romeo16]

Thanks , I tried that and in print preview it's showing only the last sheet 's print area!

 

[romeo16]

You can copy the print areas to one sheet and see them in print preview.

I used an array selection and it's solved. thanks