สวัสดีค่ะ

พอดีมีปัญหาเรื่องการ save file ใน excel คือทุกวันนี้ใช้สูตร VBA เซฟไฟล์เป็น PDF ดังนี้

Sub SavePDF()
    Dim strFileName As String
    strFileName = Application.GetSaveAsFilename( _
        FileFilter:="PDF Files (*.pdf),*.pdf", _
        Title:="Save As PDF")
    If strFileName <> "False" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=strFileName, _
            OpenAfterPublish:=False
    End If
End Sub

แต่ว่าขนาดที่ได้ ไม่ตรงตามที่ต้องการ เหมือนมันบีบลงจากขนาดจริงใน excel ... ทีนี้สิ่งที่ต้องการคือว่า สมมติเรามีทั้งหมด 10 Sheet ต้องการเซฟเอกสารจากชีทเดียว ให้เป็นไฟล์ใหม่ (ล้างสูตรทั้งหมด) และพอกดปุ่ม จะขึ้นให้เซฟเป็น excel ทันที (คล้ายๆกับสูตรด้านบนที่ขึ้นให้เซฟเป็น pdf และเขียนชื่อทันที)

ใน excel พอจะทำได้มั้ยครับ รบกวนหน่อยค่ะ ขอบพระคุณมากๆค่ะ