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

aer

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

下載 (8.76 KB)

2013-12-19 08:15

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

123.zip (22 Bytes)

下載次數: 4

2013-12-19 08:17

c_c_lai

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

你的附件內容是空的。

aer

回復 2# c_c_lai

抱歉!傳錯檔案。我再傳一次
自動開發票.zip (10.67 KB)

下載次數: 10

2013-12-19 11:19

c_c_lai

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

aer

回復 4# c_c_lai

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

aer

回復 4# c_c_lai

謝謝您！我已經試出來了

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

c_c_lai

回復 6# aer
是不是這樣？

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

複製代碼

aer

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

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

GBKEE

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

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

c_c_lai

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