Board logo

標題: [發問] 執行 VBA 程式會出現 printout 方法失敗的錯誤訊息 [打印本頁]
作者: aer    時間: 2013-12-19 08:17     標題: 執行 VBA 程式會出現 printout 方法失敗的錯誤訊息

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

A6和A10分別設定要開發票的範圍，當我按下 command button 之後會自動將 summary 工作表的資料，自動填入到 invoice 工作表對應的位置裏，可是每次只要執行 command button ，皆出現下列圖示的錯誤訊息
[attach]17079[/attach]
請問要如何修正程式，才能解決問題呢？VBA 新手煩請多多指教，謝謝！

[attach]17080[/attach]
作者: c_c_lai    時間: 2013-12-19 09:11

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

你的附件內容是空的。
作者: aer    時間: 2013-12-19 11:20

回復 2# c_c_lai

抱歉!傳錯檔案。我再傳一次
[attach]17087[/attach]
作者: c_c_lai    時間: 2013-12-19 18:13

回復 3# aer
執行起來一切都正常啊！
作者: aer    時間: 2013-12-19 18:38

回復 4# c_c_lai

可以教我要如何執行才不會出現錯誤？因為我每次執行都是出現相同的錯誤訊息，不知道要如何解決？請教我，感謝您！
作者: aer    時間: 2013-12-19 21:08

回復 4# c_c_lai

謝謝您！我已經試出來了

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

回復 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    時間: 2013-12-20 12:50

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

因為是新手還不了解程式內容的意義，是否請您幫忙解釋一下呢？謝謝！
另外再請教您，Dim xi As Long 的xi 是什麼用意呢？為什麼在程式裏看不見此參數？
作者: GBKEE    時間: 2013-12-20 16:10

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

c_c_lai 的程式符合你的需求,所以此參數是多餘的.
作者: c_c_lai    時間: 2013-12-21 09:04

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

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



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