Snasui Excel Forum

Code: Select all

Sub test()
Dim str As String
sv = "C:\Users\thing\Desktop\"
On Error Resume Next
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv & Sheets("01").Range("Z3") + ".pdf"
End Sub

Code: Select all

Sub test()

Dim str As String
sv = "C:\Users\thing\Desktop"
pdfName = Sheets("Sheet1").Range("$Z$3") 'มันชี้ debug มาที่บรรทัดนี้ครับ ละชื่อSheet ผมก็เป็น 01,02,03 ไล่ไปเรื่อยๆน่ะครับ
On Error Resume Next
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv & pdfName + ".pdf"
    
End Sub

Code: Select all

Sub SaveAsPDF()
 Dim str As String
sv = "C:\Users\User\Downloads\" 'ปรับที่อยู่ของไฟล์ที่จะSave
On Error Resume Next
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv & Sheets("Sheet1").Range("Z3") + ".pdf"
End Sub

Code: Select all

Sub SaveAsPDF()
Dim sv As String
sv = "C:\Users\thing\Desktop Test.pdf"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AE$63"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv
End Sub