Hello
I have this code that we use to PDF a range within a sheet.
how would i change this code so i can PDF three sheets together .
Set invoiceRng = Range("A1:E60") sheet1
Set invoiceRng = Range("A1:E60") sheet2
Set invoiceRng = Range("A1:E60") sheet3
I have this code that we use to PDF a range within a sheet.
how would i change this code so i can PDF three sheets together .
Set invoiceRng = Range("A1:E60") sheet1
Set invoiceRng = Range("A1:E60") sheet2
Set invoiceRng = Range("A1:E60") sheet3
Sub PrintSelectionToPDF()
Dim invoiceRng As Range
Dim strfile As String
Set invoiceRng = Range("A1:E60")
'strfile = "" & " " & ("J.W. Simpkin Ltd Quotation") & ".pdf"
'strfile = ThisWorkbook.path & strfile
invoiceRng.ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:=strfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True
End Sub