Concatenate printareas

[PaulS]

To the Excel/Printing expert,
I made a macro for printing the 12 sheets (named 'jan', 'feb'...etc).
Besides some user questions the macro has 12 times the following statement:
(generated via the 'recording macro' function)
Sheets("jan").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
For each sheet the printing area has been defined for the maximum number of lines.
Printing of 12 reports works nice, but
I have two questions:
1.The report is printed on the default printer. This is not what I want. I would like the 'ín between window' where I can select the printer. How do I get that window?
2.Early in the year the monthly reports are short. Is it possible to set the printarea in the macro? The lines to be printed can easily be calculated: (data lines start at row 7) col A holds a number . The highest number is the last line to be printed. Can printed areas of the 12 sheets be printed in one report (header taken from sheet 'jan' – rows 1-6)?
Thanks for your help.
Paul

 

[VoG]

Try

Application.Dialogs(xlDialogPrint).Show

 

[PaulS]

Thank you. Q1 solved. That's what I was looking for. Where can I find such VBA coding instructions?
Any idea about my second question? Is it possible?

 

[VoG]

You can set the print area like this

ActiveSheet.PageSetup.PrintArea = "A7:N" & Range("A" & Rows.Count).End(xlUp).Row

Change N to your rightmost column.

I don't know a way (other than by copying and pasting to a separate sheet) of concatenating the printing from several sheets.

 

[PaulS]

Thank you Peter,
I will try to implement your suggestion of copying the rows to a new worksheet, which is for printing only.
Thanks,
Paul