I am currently working on creating a button to printPreview a specified range. I've managed to create the print preview button for that specific range on one sheet, but now i'm stuck on creating that print preview for multiple sheets to be eventually printed in one printing.
Looking forward to the expert community for help on this one.
Very much appreciated in advance!
Here is my current code:
Sub AccountingPrintArea()
Dim vgw As Worksheet
Set vgw = ThisWorkbook.Worksheets("SPECS")
vgwLR = vgw.Cells(Rows.Count, 1).End(xlUp).Row
vgwLC = vgw.Cells(1, Columns.Count).End(xlToLeft).Column
'set the print area
Set PrintA = Sheets("SPECS").Range("a1:s26")
Sheets("GROUNDWORK").Range ("a1:s19")
vgw.PageSetup.PrintArea = PrintA.Address(0, 0)
vgw.PrintPreview
End Sub
Bookmarks