- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口打印旋转内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138251)
-- 发布时间：2019/7/26 11:28:00
-- [求助]窗口打印旋转内容
各位老师，因打印机及系统的缘故（太多旧固件资料， 不好重装），所以不能在打印属性里设定定义纸张，我现在需要在窗口里套打数据时，
此主题相关图片如下：01.jpg
只需将内容旋转一下
此主题相关图片如下：02.jpg
For i As Integer = 0 To Tables("合格证").Rows.Count - 1
Tables("合格证").Position = i
Dim doc As PrintDoc = Forms("出机").GernatePrintDoc()
doc.Print()
Next
哪我应该怎么设置吗？在帮助文件没有找到相关的语句，请老师指导一下，谢谢-- 发布时间：2019/7/26 11:43:00
--
http://www.foxtable.com/webhelp/topics/1602.htm
横向打印
将Landscape属性设为True，即可横向打印。
示例
e.Form.Page.Landscape = True \'横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
-- 发布时间：2019/7/26 13:59:00
--
e.Form.Page.Width = 85 \'纸张宽度为85毫米
e.Form.Page.Height = 58 \'纸张高度为58毫米
e.Form.Page.Landscape = True \'横向打印
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
[此贴子已经被作者于2019/7/26 14:04:49编辑过]
-- 发布时间：2019/7/26 14:12:00
--
doc.Print() 直接打印试试有没有问题？
-- 发布时间：2019/7/26 14:50:00
--
方向没有变化
-- 发布时间：2019/7/26 15:28:00
--
试试这个：http://www.foxtable.com/webhelp/topics/1168.htm
-- 发布时间：2019/7/26 18:01:00
--
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Style.TextAngle = 90 \'顺时钟旋转45度
doc.Body.Children.Add(rt)
For i As Integer = 0 To Tables("合格证").Rows.Count - 1
Tables("合格证").Position = i
Dim doc As PrintDoc = Forms("出机").GernatePrintDoc()
doc.Print()
Next
提示报错了
-- 发布时间：2019/7/26 20:31:00
--
不能使用窗口打印了，全部使用专业报表做