อยากทราบวิธี resize PDF file ค่ะ
Posted: Tue Sep 30, 2014 6:08 pm
มีวิธีอื่นหรือใช้ code อะไรที่จะลดขนาด PDF file ที่ save จาก excel ไหมคะ
คือใน excel มีแค่ Standard กับ minimize size เองค่ะ ซึ่ง minimize ก็ยังใหญ่ไป
ถ้าจะกำหนดให้เล็กๆกว่านี้อีก ต้องทำอย่างไรคะ
ปล. file งาน มีแต่ตัวอักษรค่ะ
i = Application.Max(a)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\RAW\Cash\C " & Format(i + 1, "000") & ".PDF", Quality:=xlQualityMinimum, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
คือใน excel มีแค่ Standard กับ minimize size เองค่ะ ซึ่ง minimize ก็ยังใหญ่ไป
ถ้าจะกำหนดให้เล็กๆกว่านี้อีก ต้องทำอย่างไรคะ
ปล. file งาน มีแต่ตัวอักษรค่ะ
i = Application.Max(a)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\RAW\Cash\C " & Format(i + 1, "000") & ".PDF", Quality:=xlQualityMinimum, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False