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里指定印表机和你手里使用的印表机相同