Hello
Im using this code and it converts my sheet to a PDF, can I change is so it exports it to a JPG
many thanks
Im using this code and it converts my sheet to a PDF, can I change is so it exports it to a JPG
many thanks
Sub PrintSelectionToPDF()
' Creates the PDF from a selected range
Dim invoiceRng As Range
Dim strfile As String
Set invoiceRng = Range("A1:N44")
strfile = "" & " " & ".PDF"
strfile = ThisWorkbook.Path & strfile
invoiceRng.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True
End Sub