20180429 xlVBA套打單據批量複製

sub testcopymodelrange()

set modelsheet = thisworkbook.worksheets("單據模板")
set printsheet = thisworkbook.worksheets("批量列印")
copymodelrange modelsheet, printsheet, 2
end sub
public sub copymodelrange(byval modelsheet as worksheet, byval printsheet as worksheet, byval copytime as long)
dim modelrng as range '模板單元格
dim modelrowheight() as double '模板行高資料
dim desrng as range '貼上位置
dim i as long '行號
with modelsheet
'計數防止計算行號發生錯誤
endrow = .cells.find("*", .cells(1, 1), xlvalues, xlwhole, xlbyrows, xlprevious).row + 1
endcol = .cells.find("*", .cells(1, 1), xlvalues, xlwhole, xlbycolumns, xlprevious).column
'獲取單據模板單元格區域
set modelrng = .range(.cells(1, 1), .cells(endrow, endcol))
debug.print modelrng.address
else
msgbox "模板為空!"
exit sub
end if
end with
with printsheet
.cells.clear
'批量複製單據模板
for i = 1 to copytime
set desrng = .range("a1")
else
endrow = .cells.find("*", .cells(1, 1), xlvalues, xlwhole, xlbyrows, xlprevious).row + 2
set desrng = .cells(endrow, 1)
end if
modelrng.copy desrng
next i
end with
end sub

使用jatoolsPrinter實現套打

最近在工作中遇到了套打的需求，前前後後，花了不少時間，現在總結一下套打的實現方式。一 設計思路 1 將待列印的文件掃瞄生成，作為網頁的背景。2 通過css將待列印的文字進行定位 3 使用jatoolsprinter外掛程式列印已定位好的網頁資訊。二 設計實現 2 計算背景的畫素 1 使用直尺在螢幕上...

關於列印（c 套打

今天經理讓寫乙個套打的程式?在電算化會計工作中，幾乎所有的由計算機生成的會計檔案都應當按照會計制度規定的格式進行輸出設計。例如各類帳本和記帳憑證等。通常，這些檔案的列印輸出處理方式有兩種 第一種 非套打方式 根據會計軟體生成的應輸出的檔案，列印時，既列印應當輸出的資料，也將帳本上印刷的格線列印出來。...

套打適應行高

sub adjustrowheight0 dim modelsheet as worksheet,printsheet as worksheet dim modelrng as range 模板單元格 dim modelrowheight as double 模板行高資料 dim modelrowc...