dw導出excel列印時 會跑很多張空白印表紙
請問 我用 dw 導出 列印 excel
用的是點針印表機
但是
每次列印的時候 列印完資料 都還會多跑 1-2張印表紙 是空白的
例如 我的資料只有兩筆 正常 應該印完就停止
但是 印完後 還會多跑1-2張印表紙 ((預覽列印時 也只有顯示一張資料))
請問
要怎樣設定 才能讓導出的資料
一列印完 就停止 不要多跑很多張印表紙 很麻煩
用的是 24點針印表機
該怎樣解決這個問題
//-----------------------------------------------------以下是 程式碼 可不可以幫我看看 哪邊可以設定
INT ret,c
oleobject xlApp //声明Excel应用程序对象
xlApp = Create OLEObject
OLEObject obook3,xlsub4
ret = xlApp.ConnectToNewObject( "Excel.Sheet" ) //打开自动化对象
c=1
string ls_file3
ls_file3="C:\e2.xls"
obook3=xlApp.Application.Workbooks.Open(ls_file3) //打开文件
xlsub4 = xlapp.Application.ActiveWorkbook.Worksheets[1] //激活第一页
xlapp.Application.visible=true
ppc=dw_2.ROWCOUNT()
xlsub4.cells[1,8].Value =sle_1.text
xlsub4.cells[1,2].Value =em_3.text
xlsub4.cells[2,2].Value = sle_2.text
xlsub4.cells[3,2].Value = sle_9.text
long 合計
合計=0
for c=1 to ppc
xlsub4.cells[c+6,1].Value = string(c)
xlsub4.cells[c+6,2].Value = string(dw_2.getitemstring(c,"條碼"))
xlsub4.cells[c+6,3].Value = string(dw_2.getitemstring(c,"名稱"))
xlsub4.cells[c+6,4].Value =+" "+ string(dw_2.getitemstring(c,"數量"))
xlsub4.cells[c+6,5].Value =+" "+ string(dw_2.getitemstring(c,"訂貨價"))
xlsub4.cells[c+6,6].Value =+" "+string(dw_2.getitemstring(c,"訂貨小計"))
合計=合計+double(dw_2.getitemstring(c,"訂貨小計"))
next
xlsub4.cells[c+6,1].Value "=========================================================================================="
xlsub4.cells[c+7,4].Value = "訂貨 : " + string(合計)+" $NT "
xlapp.Application.Worksheets[1].PrintPreview
oBook3.close()
xlApp.Application.quit()
xlApp.DisConnectObject()
[解决办法]
程序应该是没有错误。是纸张设定的问题。我遇到过。只要把纸张的大小设置成你所需要的打小就可以实现打印。
[解决办法]
可能是纸张型号问题，先确保PB里指定印表机和你手里使用的印表机相同
