返回列表下一主題上一主題發帖

[發問] 按下Command Button後，執行按下鍵盤Ctrl +P

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-3-20 11:40 | 只看該作者

[發問] 按下Command Button後，執行按下鍵盤Ctrl +P

本帖最後由 av8d 於 2014-3-20 11:42 編輯

當鍵盤按下F1後做，如下
Application.OnKey "{F1}"

當按下Command Button1後，執行按下鍵盤Ctrl +P
或
當按下Command Button1後，執行列印動作

以上該如何做？

樓主熱帖

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

8^#

發表於 2014-3-20 15:33 | 只看該作者

回復 7# Hsieh

謝謝H大~
我剛有研究一下~

Application.Dialogs(xlDialogPrint).Show arg1:=1, arg2:=2, arg3:=3

'arg1=份數,arg2=列印範圍開始頁,arg3=列印範圍結束頁

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2014-3-20 14:51 | 只看該作者

回復 5# av8d
ActiveSheet.PrintPreview '預覽列印
ActiveSheet.PrintOut '直接列印

學海無涯_不恥下問

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2014-3-20 14:29 | 只看該作者

本帖最後由 owen06 於 2014-3-20 14:30 編輯

回復 5# av8d

不客氣，其實我也是用猜的，我是先用錄製巨集的方式，把動作給錄下來，
產生出來的內容自己去TRY，
其實好像這樣就行了 ActiveSHEET.PrintPreview

而Application.Dialogs(xlDialogPrintPreview).Show
這方法是我之前錄製巨集去錄『傳送到郵件』產生的內容『xlDialogSendMail』下去改的，
我想XLDIALOG應該都是固定的，所以我就試著把後面的內容改看看，就成功了，
下次如果有遇到不會的地方，可以試著用錄製巨集去看看裡面的內容，
再自行修改看看，通常可以解決掉不少困難。

TOP

av8d