hello
I try saving specific sheet as pdf but gives error can't save document in this line
any idea to fix it ,guys?
I try saving specific sheet as pdf but gives error can't save document in this line
VBA Code:
rng.ExportAsFixedFormat Filename:=strFilename, Type:=xlTypePDF, OpenAfterPublish:=True
VBA Code:
Sub SaveAsPDF()
Dim rng As Range
Dim strFilename As String
Dim lr As Long
lr = Sheets("INVOICE").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("INVOICE")
strFilename = .Range("G6").Value & " " & "INVOICE NO "
End With
Set rng = Sheets("INVOICE").Range("a1:G" & lr)
rng.ExportAsFixedFormat Filename:=strFilename, Type:=xlTypePDF, OpenAfterPublish:=True
End Sub