excel批量按模板列印 vba經典

2022-09-10 04:09:12 字數 3285 閱讀 2327

publicaasstring, basstring, casstring, dasstring, easstring, fasstring, gasstring'定義公共變數

publichasstring, iasstring, jasstring, kasstring, lasstring, masstring, lastrowasinteger

sub按鈕1_click()

sheets("sheet1").select'選擇sheet1工作表

lastrow = cells(rows.count, 1).end(xlup).row'求出**內容的最後一行行號

forx = 2tolastrow'從第二行的內容開始 到最後一行

a = cells(x, 1)'合同編號客戶名稱 將對應行的內容讀入變數中

b = cells(x, 2)'合同編號 cells(x,2)的意思是第x行第2列的單元格內容

c = cells(x, 3)'客戶名稱 a~m是變數,存放x行中各單元格的資料

d = cells(x, 4)'區域經理

e = cells(x, 5)'**商

f = cells(x, 6)'函件單號

g = cells(x, 7)'是否回函

h = cells(x, 8)'合同總價

i = cells(x, 9)'到款金額

j = cells(x, 10)'合同餘款

k = cells(x, 11)'截止開票金額

l = cells(x, 12)'開票金額

m = cells(x, 13)'求和項

sheets("列印").select'

cells(1, 1).select'

[j6] = a'合同編號客戶名稱 將變數內容填入對應單元格的中

[j2] = b'方括號中內容就是單元格名稱,如[j2]就是j2單元格

[k2] = c    』這裡僅作示範,請你根據變數的內容要填入列印**中的什麼地方你自行修改

[e3] = d

[c5] = e

[e5] = f

[f5] = g

[h5] = h

[j5] = i

[d7] = j

[e7] = k

[f7] = l

[g7] = m

activewindow.selectedsheets.printout copies:=1, collate:=true, ignoreprintareas:=false'列印指定範圍內容,列印乙份

next'處理下一行

endsub

列印及批量列印

開發十年,就只剩下這套架構體系了!總述 引入列印的js檔案,把需要列印的內容window.print 列印出來即可。注 print 可設定引數,如不需要列印的內容。列印 一 單頁列印 引入js和新增列印js 頁面新增列印按鈕 二 批量列印 思路 獲取到每個選中的核取方塊的值 如下圖 用get同步請求...

C 設定Excel列印選項及列印excel文件

c 設定excel列印選項及列印excel文件 列印excel文件是乙個很常見的操作,但有時候我們會碰到各種不同的列印需求,例如只列印乙個excel工作表的其中一部分,或列印時每頁都有表頭,或把工作表中超出1頁所有內容列印到1頁上等等,這時我們需要對excel的列印選項進行設定。這篇文章主要是分享如...

批量匯出Excel

控制層 獲取 資料 list orglist statisticalmanageservice.findjxmons params 新建 物件 excelobject s new excelobject 設定檔案路徑 s.setefilepath path 設定檔名稱 string fname 專案...