Hello, I have an application to be used by basic level users of Excel. The app will produce a set of analytics on about 20 separate worksheets. Not all users will want all 20 sheets and so I need a clean method to allow each user to select which pages they would like to print and these to then be selected and printed as one PDF. So far I have the skeleton below: Can anyone help please?
Sub Print_PDF()
ThisWorkbook.Sheets(Array("Sheet 1", "Sheet 2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\MyTest", _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Sub Print_PDF()
ThisWorkbook.Sheets(Array("Sheet 1", "Sheet 2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\MyTest", _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
