Sheet1是list資料,項目有A,B,C欄

Sheet2是固定表格+固定圖片

我的巨集是自動抓Sheet1的資料去代入到Sheet2表格內並列印


假設Sheet1的A欄資料開頭有"CN"字樣時

當代入到Sheet2時我只希望列印表格不需圖片


懇請高手提示一下~~


版本2003

因為這個必須寫VBA...
請把已有的表格拿出來讓要幫你的人方便一點...
最好有些範例資料...
資料可以亂掰...圖片可以處理一下...

froce wrote:
因為這個必須寫VBA...(恕刪)



檔案已附上再麻煩您看看
問幾個問題...
1.也就是說遇到CN開頭的不印第2頁?...
2.要列印的總共只有兩頁對吧?...目前因為你的跨欄置中...所以會多印出一頁的空白頁...
有可能是版面跑掉而已...我是用2003...

基本上是寫好了...剩下調整而已...

froce wrote:
問幾個問題...1....(恕刪)



感謝您的回覆,附件檔案我有更新過,外框有用顏色來表示

帶入資料時總共會列印兩頁(藍色框),但當list的A欄有"CN"字樣時我只需列印第一頁+第二頁紅色框的範圍

再麻煩你了
https://docs.google.com/open?id=0B60elfiE7hqINzE4Y2VkYzAtZTRlZS00ODk2LWEzOTYtZDRkYTA2MjNhZTYz

用下載原始檔案下載試試看...

基本上只有加上下面的原始碼而已...
If Left(Worksheets("Cage").Cells(7, "D"), 2) = "CN" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$37,$A$51:$P$73"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Else
ActiveSheet.PageSetup.PrintArea = ""
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If

重點是第一句的判斷...其他可以用錄製巨集去處理...
---
另外現在會去找最後一筆資料來判斷要作幾次的迴圈...
不是原本固定作1000次...

froce wrote:
https://do...(恕刪)


感謝已成功了!!
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!