Print range from command button

[ipbr21054]

Hi,
I had two separate workheets with a template on each.
I would then go to the relevant worksheet & print the page.
Not sure of the correct name but i had to select the area i would like to print,this was saved for the future prints and i see a dotted line showing this.

Ive now put both templates on one worksheet.
I am now not able to select & keep 2 print areas.

I would like to use two command buttons for the printing of the template.
How would the code be writing if say the print are is A1:K23

I will then copy the code for the other template but will alter the range for Q1:AA23

 

[MARK858]

You don't need 2 command buttons, you can just do

ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$23,$Q$1:$AA$23"

 

[ipbr21054]

Hi,
I will only be printing only 1 of them.
Depending on the sale it could be Template 1 or Template 2

Both will never be printed at the same time.

It would be nice to do this.
I would make a userform which would have 2 buttons.
Using you code i would select which i needed & then print

 

[MARK858]

Then you need 2 subs. One with

ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$23"

and one with

ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$$Q$1:$AA$23"

 

[ipbr21054]

Thanks

 

[MARK858]

You're welcome

 

[ipbr21054]

Would this be the same result but just a different code to produce the same thing ?

Range("Q1:AA23").PrintOut

 

[MARK858]

Would this be the same result but just a different code to produce the same thing ?

Have you tried it?

 

[ipbr21054]

Ha Ha
Yes it does.

thanks for your input anyway

 

[MARK858]

The only difference when you set a print area is if you need a reprint then you can do it from the regular print options rather than run VBA.