客户反映某一报表打印时,点一次打印按钮,当打印内容多时,个别时候会出现断行, 出错处的地方表格突然放大了似的,而且预览中也是正常的,打印的少的时候正常。
打印按钮主要代码如下:
Choose Case lb //是否连续打印
Case 0 //正常打印
dw.Object.DataWindow.Printer =str_printername
dw.Print()
Case 1 //连续打印
job = PrintOpen('his打印',false)
PrintSend(job,CharA(27) + CharA(67) + CharA(1)) //以行为单位设定页长
PrintSend(job,CharA(27) + CharA(85) + CharA(48)) //解除粗体字体
PrintSend(job,CharA(28) + CharA(120) + CharA(1)) //选择英文字体打印品质
PrintDataWindow(job,dw)
PrintClose(job)
End Choose
附打印出来效果图: