以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口打印预览,其中一个标签位置与窗口实际不符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68618)

--  作者:46702888
--  发布时间:2015/5/21 13:45:00
--  窗口打印预览,其中一个标签位置与窗口实际不符
用按钮直接打印窗口,窗口中最上面的标签“****股份有限公司员工信息”打印时自己跑到下面去了,是何原因?
图片点击可在新窗口打开查看此主题相关图片如下:02.jpg
图片点击可在新窗口打开查看
e.Form.Page.Landscape = True
e.Form.Page.Width = 297
e.Form.Page.Height = 210
e.Form.Page.TopMargin = 10
e.Form.Page.BottomMargin = 10
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False 
doc.Preview()


图片点击可在新窗口打开查看此主题相关图片如下:01.jpg
图片点击可在新窗口打开查看


--  作者:Bin
--  发布时间:2015/5/21 13:48:00
--  
e.Form.Page.Landscape = True
e.Form.Page.Width = 297
e.Form.Page.Height = 210
e.Form.Page.TopMargin = 10
e.Form.Page.BottomMargin = 10
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
  If c.text="XXXX股份有限公司员工信息" Then
    c.x=100
    c.y=100
  End If
Next
doc.AutoRotate = False 
doc.Preview()

--  作者:Bin
--  发布时间:2015/5/21 13:49:00
--  
知识点 http://www.foxtable.com/help/topics/1177.htm

X Y 随意调整到自己想要的位置

--  作者:46702888
--  发布时间:2015/5/21 15:25:00
--  
谢谢Bin