以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86820)

--  作者:nxqtxwz
--  发布时间:2016/6/27 9:32:00
--  [求助]
各位老师大家好,我做一个卡片,尺寸是190*135,我在窗口设计中设置了纵向打印,就是想让卡片进打印机是长一点,居中,这样好操作,可是我怎么设置都不起作用,请问怎么办?
--  作者:大红袍
--  发布时间:2016/6/27 9:53:00
--  
 什么不起作用,请具体说明。
--  作者:nxqtxwz
--  发布时间:2016/6/27 9:56:00
--  
老师你好,就是我设了纵向打印,它仍然是横向打印的。
--  作者:nxqtxwz
--  发布时间:2016/6/27 9:57:00
--  
横向打印卡片不好进打印机。
--  作者:大红袍
--  发布时间:2016/6/27 10:07:00
--  

 试试不预览,直接print

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False \'禁止自动旋转打印内容
doc.Print()

--  作者:nxqtxwz
--  发布时间:2016/6/27 10:25:00
--  

真是奇怪,还是不行。仍然是横着打。


--  作者:nxqtxwz
--  发布时间:2016/6/27 10:28:00
--  

老师,我试了,还是不行,仍然只能横着打。

 


--  作者:大红袍
--  发布时间:2016/6/27 10:29:00
--  

 那你直接去设置纸张

 

http://www.foxtable.com/help/topics/2904.htm

 


--  作者:nxqtxwz
--  发布时间:2016/6/27 10:46:00
--  

我用的是HP打印机,设置里没有纵向还是横向打印的设置。这个语句能控制吗。

doc.PageSetting.Landscape = True \'横向打印


--  作者:大红袍
--  发布时间:2016/6/27 10:54:00
--  

那就试试,如果不行,说明打印机不支持。

 

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

doc.PageSetting.Landscape = False
doc.AutoRotate = False \'禁止自动旋转打印内容
doc.Print()