rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-7-5 14:25 | 只看該作者

[發問] 指定範圍列印

DEAR ALL 大大
1.WORD 如何自動指定範圍列印.不需於列印時手動設定
1.1 例: 共 25 頁要設定列印時只列印1-18頁.
使用VBA 或有無其他方式自動設定.
2.煩不吝賜教 THANKS

樓主熱帖

羅

tim5259

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: windows7
軟體版本: SP2
閱讀權限: 10
性別: 男
註冊時間: 2018-3-8
最後登錄: 2018-3-19

6^#

發表於 2018-3-8 18:08 | 只看該作者

回復 1# rouber590324

檔案->設定的第一個選單點下->設定列印範圍->選第幾到第幾頁

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 2017-7-18 16:58 | 只看該作者

DEAR 偉婕大大-
小弟使用公司電腦.無法上傳.還是感謝您之指導
rouber@nanyapcb.com.tw
THANKS*10000

羅

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

4^#

發表於 2017-7-14 23:17 | 只看該作者

DEAR 偉婕大大-
03.Range:=wdPrintFromTo, From:="1", To:="18"
此句出現 "編輯錯誤-必需是運算式"之防 ...
rouber590324 發表於 2017-7-6 08:35

您好，我測試沒有出現~~ 編輯錯誤-必需是運算式~~訊息
看看是否上傳文件？

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2017-7-6 08:35 | 只看該作者

DEAR 偉婕大大-
03.Range:=wdPrintFromTo, From:="1", To:="18"
此句出現 "編輯錯誤-必需是運算式"之防呆??

羅

TOP

偉婕

　暱稱: 偉婕

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 376
主題: 84
精華: 0
積分: 419
點名: 0
作業系統: Win 8
軟體版本: Office 2007
閱讀權限: 100
性別: 女
註冊時間: 2010-4-30
最後登錄: 2022-6-2

論壇貢獻勳章美女勳章熱烈參與勳章

2^#

發表於 2017-7-6 00:39 | 只看該作者

DEAR ALL 大大
1.WORD 如何自動指定範圍列印.不需於列印時手動設定
1.1 例: 共 25 頁要設定列印時只列 ...
rouber590324 發表於 2017-7-5 14:25

試試

Private Sub CommandButton1_Click()
ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="18"
End Sub

複製代碼

或參考 https://msdn.microsoft.com/zh-tw/library/office/ff837331.aspx

偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP