以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口控件内容打印  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135539)

--  作者:h4143
--  发布时间:2019/5/29 11:03:00
--  [求助]窗口控件内容打印

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

老师,怎样把面板里的内容按比例打印到我自己设置的纸张大小的对面位置(位置,还有大小)

打印代码

Dim grp As WinForm.Panel = e.Form.Controls("Panel7")
e.Form.Page.Width = 190 \'纸张宽度为100毫米
e.Form.Page.Height = 150 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 5 \'设置左边距
e.Form.Page.RightMargin = 10 \'设置右边距
e.Form.Page.TopMargin = 5 \'设置上边距
e.Form.Page.BottomMargin = 10 \'设置下边距
e.Form.Page.Landscape = True \'横向打印

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

--  作者:h4143
--  发布时间:2019/5/29 11:03:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/5/29 11:05:00
--  

参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=101744&skin=0

 

 


--  作者:有点甜
--  发布时间:2019/5/29 11:06:00
--  

参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49175&skin=0