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

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

2^#

發表於 2013-12-19 09:11 | 只看該作者

A6和A10分別設定要開發票的範圍，當我按下 command button 之後會自動將 summary 工作表的資料，自動填入到 ...
aer 發表於 2013-12-19 08:17

你的附件內容是空的。

TOP

aer

中學生 Rank: 2

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

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

3^#

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

回復 2# c_c_lai

抱歉!傳錯檔案。我再傳一次

自動開發票.zip (10.67 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

4^#

發表於 2013-12-19 18:13 | 只看該作者

回復 3# aer
執行起來一切都正常啊！

TOP

aer

中學生 Rank: 2

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

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

5^#

發表於 2013-12-19 18:38 | 只看該作者

回復 4# c_c_lai

可以教我要如何執行才不會出現錯誤？因為我每次執行都是出現相同的錯誤訊息，不知道要如何解決？請教我，感謝您！

TOP

aer

中學生 Rank: 2

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

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

6^#

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

回復 4# c_c_lai

謝謝您！我已經試出來了

如果不要用列印的方式，同樣是在invoice 工作表的a6 輸入起始值，a10輸入終值，而用顯示在 invoice 工作表的 c6:f6 對應欄位，逐筆逐列往下代入資料，請問程式該如何修改呢？謝謝！

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