帖子: 192
主題: 16
精華: 0
積分: 238
點名: 310
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-12-19 08:17 | 只看該作者

[發問] 執行 VBA 程式會出現 printout 方法失敗的錯誤訊息

本帖最後由 aer 於 2013-12-19 08:21 編輯

A6和A10分別設定要開發票的範圍，當我按下 command button 之後會自動將 summary 工作表的資料，自動填入到 invoice 工作表對應的位置裏，可是每次只要執行 command button ，皆出現下列圖示的錯誤訊息

請問要如何修正程式，才能解決問題呢？VBA 新手煩請多多指教，謝謝！

123.zip (22 Bytes)

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

10^#

發表於 2013-12-21 09:04 | 只看該作者

本帖最後由 c_c_lai 於 2013-12-21 09:05 編輯

回復 8# aer
因為昨天早上朋友剛好來電，要與他吃飯，
高興之餘忘了將它移除掉就急忙傳出，歹勢！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-12-20 16:10 | 只看該作者

回復 c_c_lai
Dim xi As Long 的xi 是什麼用意呢？為什麼在程式裏看不見此參數？aer 發表於 2013/12/20 12:50

c_c_lai 的程式符合你的需求,所以此參數是多餘的.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

aer

中學生 Rank: 2

帖子: 192
主題: 16
精華: 0
積分: 238
點名: 310
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

8^#

發表於 2013-12-20 12:50 | 只看該作者

回復 7# c_c_lai
謝謝！程式符合我的需要，感謝您！

因為是新手還不了解程式內容的意義，是否請您幫忙解釋一下呢？謝謝！
另外再請教您，Dim xi As Long 的xi 是什麼用意呢？為什麼在程式裏看不見此參數？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2013-12-20 10:09 | 只看該作者

回復 6# aer
是不是這樣？

Sub Ex()
Dim xi As Long
With Worksheets("Invoice")
.Activate
Sheets("summary").Range("D" & .Range("A6").Value + 1 & ":G" & .Range("A10").Value + 1).Copy _
Destination:=.[C6]
' .PrintOut
.PrintOut from:=1, To:=1, copies:=1
End With
End Sub