(請教) EXCEL 列印PDF的VBA按鈕

brike
個人積分：22分
文章編號：71589034

22分

樓主

2019-01-03 15:41

小弟時常需要把文件存成PDF檔案

想請教如何設計一個巨集，列印存成PDF檔案？

想嘗試兩種方式

1.列印 -> ＰＤＦ->以B12儲存格為檔名 -> 可選擇存擋位置

2.列印 -> ＰＤＦ->以B12儲存格為檔名 -> 自動儲存在C:\文件\

還有個小問題

如果想在B12欄位裡結合F12+F16+F17儲存格的文字

並且中間以“ _ ” 底線做分隔

可以用什麼公式達成？

ps: F17是用Vlookup帶出的日期格式

2019-01-03 15:41 發佈

文章關鍵字 excel 按鈕列印pdf VBA

wbl2049

wbl2049
個人積分：29分
文章編號：71589523

29分

2樓

2019-01-03 16:16

Sub Print_PDF()

File_Name = Range("B12").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="C:\文件\" & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

-----------------------------------------

B12 裡的函數 =F12&"_"&F16&"_"&TEXT(F17,"yyyymmdd")

City0224

請問Sub Print_PDF()是如何叫出來的我的都是po… Sub

2022-07-26 6:41

milk1123cc

請問為什麼我依照上面的輸入完畢後，無法啟動呢?

2023-03-08 11:34

brike

brike
個人積分：22分
文章編號：71590352

22分

樓主

2019-01-03 17:14

太感謝了！第二個問題解決了！

另外有個小問題，儲存PDF時用，如何可指定列印

第3頁文件？

Sub Print_PDF()

File_Name = Range("B12").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="C:\文件\" & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

wbl2049

wbl2049
個人積分：29分
文章編號：71590619

29分

4樓

2019-01-03 17:31

Sub Print_PDF()

File_Name = Range("B12").Value

Sheet_Name = InputBox("輸入要列印的工作表名稱", , "工作表1")

Sheets(Sheet_Name).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="C:\文件\" & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

brike

brike
個人積分：22分
文章編號：71590660

22分

樓主

2019-01-03 17:35

原是用sheet1中

裡面做了4個列印的版型

有用檢視>分頁預覽把四個頁面都定義好了

像列印第3頁時，是輸入從 3至3

如果只是單純想印第三頁的話，vba該怎麼修改？
真是感謝！！

PS 以前單純列印時，是用以下方法

Sub 列印_3()
'
' 列印_3 巨集
'

'
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub

wbl2049

wbl2049
個人積分：29分
文章編號：71596086

29分

6樓

2019-01-04 8:00

Sub Print_PDF()

File_Name = Range("B12").Value

Page1 = InputBox("輸入要列印的起始頁數", , 1)
Page2 = InputBox("輸入要列印的結束頁數", , 1)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="C:\文件\" & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False, From:=Page1, To:=Page2

End Sub

brike

brike
個人積分：22分
文章編號：71599117

22分

樓主

2019-01-04 11:49

真是感激！苦惱許久終於成功！

可否可直接不出現對話框，直接列印第三頁？

大大實在太神了~

wbl2049

wbl2049
個人積分：29分
文章編號：71600415

29分

8樓

2019-01-04 13:19

不問第幾頁寫死在程式,每次都只產生第三頁?

Sub Print_PDF()

File_Name = Range("B12").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:="C:\文件\" & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False, From:=3, To:=3

End Sub