- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]支piao打印窗口横纵向设置问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40594)
-- 发布时间：2013/9/24 13:20:00
-- [求助]支piao打印窗口横纵向设置问题
我按照教程制作支票打印窗口,设置了为纵向打印.但是正式打印时,又自动转为横向打印,如果打印时调整成纵向,又只能打印一半,请教老师如何解决?(我用的是EPSON LQ 630K针式打印机)
此主题相关图片如下：102.gif
此主题相关图片如下：101.gif
[此贴子已经被作者于2013-9-24 13:27:07编辑过]
-- 发布时间：2013/9/24 14:23:00
--
超长了,所以就自动转向了. 强行转回来,长度不够还是打印不全的.
-- 发布时间：2013/9/24 14:52:00
--
试试这个：
http://www.foxtable.com/help/topics/1589.htm
此外直接打印，不要预览看看
-- 发布时间：2013/9/24 18:57:00
--
打印出现这个内容,代码如下,问题出在哪里?
Dim doc As New PrintDoc
Dim ra As New prt.RenderArea
doc.PageSetting.Width = 219
doc.PageSetting.Height = 85
doc.AutoRotate = False \'禁止自动旋转打印内容
ra.Width = "Parent.Width"
ra.Height = "Parent.Height"
ra.Style.Borders.All = New prt.Linedef(5, Color.Red)
doc.Body.Children.Add(ra)
doc.Print()
[此贴子已经被作者于2013-9-24 18:57:50编辑过]
-- 发布时间：2013/9/24 19:09:00
--
你打印按钮的代码改成
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False \'禁止自动旋转打印内容
doc.Print()
-- 发布时间：2013/9/25 13:23:00
--
问题已经解决.谢谢各位老师的解答.