I would like to insert a line of code that specifies the pdf name to "Daily Report + Date in yyyymmdd". At the moment, I can't seem to specify the directory and the name of the pdf file.
I would also like to set the printing range to the set printing area in excel isolated by the preview setting. Like the one shown here. This would replace my range A1:F137
.
Private Sub CommandButton1_Click()
'Save range as PDF
Dim ws1 As Worksheet
Set ws1 = Worksheets("Daily Report")
Dim reportRng As Range
Set reportRng = ws1.Range("A1:F137") 'Setting range to be printed
Dim pdfile As String
'setting file name with a time stamp.
pdfile = "invoice" & "_" & Format(Now(), "yyyymmdd_hhmmss") & ".pdf"
'setting the fulli qualified name. The resultent pdf will be saved where the main file exists.
pdfile = ThisWorkbook.Path & strfile
reportRng.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pdfile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Any help is appreciated, thanks.
question from:
https://stackoverflow.com/questions/65926668/insert-line-of-code-that-specifies-the-pdf-file-name-and-sets-the-printing-range 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…