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

小弟時常需要把文件存成PDF檔案想請教如何設計一個巨集，列印存成PDF檔案？想嘗試兩種方式1.列印-> PDF->以B12儲存格為檔名-> 可選擇存擋位置2. 首頁 電腦 電腦軟體 文書處理 前往頁尾 返回列表 訂閱文章 我要回覆 brike 22分 樓主 brike 個人積分：22分 文章編號：71589034 訊息 文章段落 (請教)EXCEL列印PDF的VBA按鈕 2019-01-0315:41 4323 0 收藏 回覆 分享 引言 連結 回報 推薦 只看樓主 列印 小弟時常需要把文件存成PDF檔案想請教如何設計一個巨集，列印存成PDF檔案？想嘗試兩種方式1.列印->ＰＤＦ->以B12儲存格為檔名->可選擇存擋位置2.列印->ＰＤＦ->以B12儲存格為檔名->自動儲存在C:\文件\還有個小問題如果想在B12欄位裡結合F12+F16+F17儲存格的文字並且中間以“_”底線做分隔可以用什麼公式達成？ps:F17是用Vlookup帶出的日期格式 2019-01-0315:41 #1 0 引言 分享 文章關鍵字 excel 按鈕 列印pdf VBA wbl2049 24分 2樓 wbl2049 個人積分：24分 文章編號：71589523 訊息 SubPrint_PDF()File_Name=Range("B12").ValueActiveSheet.ExportAsFixedFormatType:=xlTypePDF,filename:="C:\文件\"&File_Name&".pdf",Quality:=xlQualityStandard,_IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=FalseEndSub-----------------------------------------B12裡的函數=F12&"_"&F16&"_"&TEXT(F17,"yyyymmdd") 2019-01-0316:16 #2 0 引言 我要留言 連結 回報 只看此人 列印 0/100 我要留言 brike 22分 樓主 brike 個人積分：22分 文章編號：71590352 訊息 太感謝了！第二個問題解決了！另外有個小問題，儲存PDF時用，如何可指定列印第3頁文件？SubPrint_PDF()File_Name=Range("B12").ValueActiveSheet.ExportAsFixedFormatType:=xlTypePDF,filename:="C:\文件\"&File_Name&".pdf",Quality:=xlQualityStandard,_IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=FalseEndSub 2019-01-0317:14 #3 0 引言 我要留言 連結 回報 只看樓主 列印 0/100 我要留言 wbl2049 24分 4樓 wbl2049 個人積分：24分 文章編號：71590619 訊息 SubPrint_PDF()File_Name=Range("B12").ValueSheet_Name=InputBox("輸入要列印的工作表名稱",,"工作表1")Sheets(Sheet_Name).SelectActiveSheet.ExportAsFixedFormatType:=xlTypePDF,filename:="C:\文件\"&File_Name&".pdf",Quality:=xlQualityStandard,_IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=FalseEndSub 2019-01-0317:31 #4 0 引言 我要留言 連結 回報 只看此人 列印 0/100 我要留言 brike 22分 樓主 brike 個人積分：22分 文章編號：71590660 訊息 原是用sheet1中裡面做了4個列印的版型有用檢視>分頁預覽把四個頁面都定義好了像列印第3頁時，是輸入從3至3如果只是單純想印第三頁的話，vba該怎麼修改？真是感謝！！PS以前單純列印時，是用以下方法Sub列印_3()''列印_3巨集''ActiveWindow.SelectedSheets.PrintOutFrom:=3,To:=3,Copies:=1,Collate_:=True,IgnorePrintAreas:=FalseEndSub 2019-01-0317:35 #5 0 引言 我要留言 連結 回報 只看樓主 列印 0/100 我要留言 wbl2049 24分 6樓 wbl2049 個人積分：24分 文章編號：71596086 訊息 SubPrint_PDF()File_Name=Range("B12").ValuePage1=InputBox("輸入要列印的起始頁數",,1)Page2=InputBox("輸入要列印的結束頁數",,1)ActiveSheet.ExportAsFixedFormatType:=xlTypePDF,filename:="C:\文件\"&File_Name&".pdf",Quality:=xlQualityStandard,_IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=False,From:=Page1,To:=Page2EndSub 2019-01-048:00 #6 0 引言 我要留言 連結 回報 只看此人 列印 0/100 我要留言 brike 22分 樓主 brike 個人積分：22分 文章編號：71599117 訊息 真是感激！苦惱許久終於成功！可否可直接不出現對話框，直接列印第三頁？大大實在太神了~ 2019-01-0411:49 #7 0 引言 我要留言 連結 回報 只看樓主 列印 0/100 我要留言 wbl2049 24分 8樓 wbl2049 個人積分：24分 文章編號：71600415 訊息 不問第幾頁寫死在程式,每次都只產生第三頁?SubPrint_PDF()File_Name=Range("B12").ValueActiveSheet.ExportAsFixedFormatType:=xlTypePDF,filename:="C:\文件\"&File_Name&".pdf",Quality:=xlQualityStandard,_IncludeDocProperties:=True,IgnorePrintAreas:=False,OpenAfterPublish:=False,From:=3,To:=3EndSub 2019-01-0413:19 #8 0 引言 我要留言 連結 回報 只看此人 列印 0/100 我要留言 常用 表情 動作 物品 短文字 長文字 首頁 電腦 電腦軟體 文書處理 我要回覆 小惡魔新聞台 HyperX將兩款經典麥克風QuadCastS／SoloCast推出白色款式讓專業直播設備更具時尚感 羅技推出LogiDock全功能擴充底座工作站提供完整筆電擴充性能還加入控制視訊與擴音設計 為提供您更優質的服務，本網站使用cookies。

若您繼續瀏覽網頁，即表示您同意我們的cookies政策。

了解隱私權條款 我知道了！請關閉提示 今日熱門文章　網友點擊推薦！ 文章分享 加入好友名單 名稱 群組 全部朋友 描述 取消 確定 評分 取消 確定 複製連結 複製 留言回報 留言違規 請選擇違規類型 提供個人聯絡資訊,文不對題,名稱選字不正確 散佈盜版資訊,自刪文章 違規團購或問卷調查,商品廣告或買賣 涉及政府法令,攻擊、侮辱、非理性行為 詐騙/色情內容回報 上述事項以外的情況 取消 確定