以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]套打窗口打印线条错位  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78019)
--  作者：dd6b
--  发布时间：2015/11/30 17:42:00
--  [求助]套打窗口打印线条错位
窗口显示时线条位置都是正确的，但是一打印里面竖着的线条都向上错位，在不影响窗口显示的情况下该怎么办呢？
--  作者：大红袍
--  发布时间：2015/11/30 17:58:00
--  

动态修改线条的top属性，然后打印，然后再设置回来。

 

如

 

e.Form.Controls("Line1").Top += 20

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

doc.Preview()

 

e.Form.Controls("Line1").Top -= 20