- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 超市用的那种pos打印机怎么设置横向打印？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40205)
-- 发布时间：2013/9/11 23:22:00
-- 超市用的那种pos打印机怎么设置横向打印？
用这些代码，达不到效果
Doc.PageSetting.Landscape = True \'打印方向
Doc.AutoRotate = True
-- 发布时间：2013/9/12 0:04:00
--
想达到这种效果？
此主题相关图片如下：qq图片20130912235957.jpg
-- 发布时间：2013/9/12 0:08:00
--
专业报表，报表横着设计，设置自动转向，打印的时候自动转成这样了！
没用国pos打印机，具体要您自己测试！
-- 发布时间：2013/9/12 15:03:00
--
我试了一下，普通针式打印机可以，而pos打印机就不行了！
-- 发布时间：2013/9/12 21:06:00
--
横着设计报表，报表装在一个容器里，最后把这个容器旋转一定的角度，然后打印。ra.Style.TextAngle = -45
-- 发布时间：2013/9/13 1:09:00
--
试了一下。表格没办法旋转！只能文字旋转
-- 发布时间：2013/9/13 21:39:00
--
测试了一下，确实只是只能旋转文字，不过这不是够用了么？
竖着设计表格，横着设计文字，然后文字旋转。
-- 发布时间：2013/9/14 22:32:00
--
老大能否给个例子参考一下？
-- 发布时间：2013/9/14 22:58:00
--
把下面的代码复制到命令窗口运行
Dim doc As New PrintDoc \'定义一个报表
Dim ra As new prt.RenderArea
Dim rt As New prt.RenderTable() \'定义一个表格对象
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
rt.Rows.Count = 4 \'设置总行数
rt.Cols.Count = 3 \'设置总列数
rt.Height = 110 \'设置表格的高度为120毫米
rt.Width = 30
rt.Cells(1,0).SpanRows = 3
Dim rx As new prt.RenderText
rx.Text = "0,0"
rt.cells(0,0).RenderObject = rx
rx = new prt.RenderText
rx.Text = "1,1"
rt.cells(1,1).RenderObject = rx
rx = new prt.RenderText
rx.Text = "2,2"
rt.cells(2,2).RenderObject = rx
rx = new prt.RenderText
rx.Text = "111111111应该是可以的0000000"
rt.cells(1,0).RenderObject = rx
ra.Style.TextAngle = -90
ra.Children.add(rt)
doc.Body.Children.add(ra)
Doc.Preview() \'预览报表