標題: [發問] 按下Command Button後，執行 按下鍵盤Ctrl +P [打印本頁]

---

作者: av8d    時間: 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後，執行 列印動作

以上該如何做？

---

作者: owen06    時間: 2014-3-20 13:22

回復 1# av8d


    Application.Dialogs(xlDialogPrint).Show

---

作者: av8d    時間: 2014-3-20 13:37

回復 2# owen06


    謝謝大大~
想再請教一下~
如果要有預覽圖那種的話也可以嗎?

---

作者: owen06    時間: 2014-3-20 13:51

回復 3# av8d


    Application.Dialogs(xlDialogPrintPreview).Show

---

作者: av8d    時間: 2014-3-20 14:03

回復 4# owen06


    學習到了兩種~誠心感謝

---

作者: owen06    時間: 2014-3-20 14:29

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

回復 5# av8d


    不客氣，其實我也是用猜的，我是先用錄製巨集的方式，把動作給錄下來，
    產生出來的內容自己去TRY，
    其實好像這樣就行了 ActiveSHEET.PrintPreview
   
    而Application.Dialogs(xlDialogPrintPreview).Show
    這方法是我之前錄製巨集去錄『傳送到郵件』產生的內容『xlDialogSendMail』下去改的，
    我想XLDIALOG應該都是固定的，所以我就試著把後面的內容改看看，就成功了，
    下次如果有遇到不會的地方，可以試著用錄製巨集去看看裡面的內容，
    再自行修改看看，通常可以解決掉不少困難。

---

作者: Hsieh    時間: 2014-3-20 14:51

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

---

作者: av8d    時間: 2014-3-20 15:33

回復 7# Hsieh


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

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)