Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共10 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:报表如何设置横向打印?

1楼
leiyunjn 发表于:2011/8/4 20:44:00

用代码做了一个报表想用来打印快递单。可是不管我设置或者不设置“doc.PageSetting.Landscape = True” 打印出来的快递单都是纵向的?

2楼
czy 发表于:2011/8/4 21:49:00
不会吧,贴出你的代码看看。
3楼
狐狸爸爸 发表于:2011/8/5 7:54:00

看看这个:

http://www.foxtable.net/help/topics/1589.htm

 

4楼
leiyunjn 发表于:2011/8/7 0:47:00
以下是引用狐狸爸爸在2011-8-5 7:54:00的发言:

看看这个:

http://www.foxtable.net/help/topics/1589.htm

 

感谢回复,我添加了doc.AutoRotate = False也还是纵向打印。下面贴出我的代码,麻烦帮我查看一下。

 

以下内容为程序代码:

1 Dim doc As New PrintDoc() '定义一个报表
2 doc.PageSetting.Landscape = True '横向打印
3 doc.AutoRotate = False '禁止自动旋转打印内容
4 doc.PageSetting.Width = 230 '纸张宽度为230毫米
5 doc.PageSetting.Height = 127 '纸张高度为127毫米
6 Doc.PageSetting.LeftMargin = 0 '设置左边距
7 Doc.PageSetting.RightMargin = 0 '设置右边距
8 Doc.PageSetting.TopMargin = 0 '设置上边距
9 Doc.PageSetting.BottomMargin = 0 '设置下边距
10 Dim ra As New prt.RenderArea
11 ra.Width = 85 '宽度为90毫米
12 ra.Height = 15 '高度为15毫米
13 ra.x = 115
14 ra.y = 50
15
16 Dim rx As prt.RenderText '定义一个文本对象
17 Dim CurRow As Row = Tables("客户信息").Current
18
19 rx = new prt.RenderText
20 rx.Style.FontSize = 12 '字体大小
21 rx.Text = "我的姓名"
22 rx.x = 33
23 rx.y = 30
24 doc.body.Children.Add(rx)
25
26 rx = new prt.RenderText
27 rx.Style.FontSize = 12 '字体大小
28 rx.Text = "济南"
29 rx.x = 75
30 rx.y = 30
31 doc.body.Children.Add(rx)
32
33 rx = new prt.RenderText
34 rx.Text = "发货单位"
35 rx.x = 40
36 rx.y = 37
37 doc.body.Children.Add(rx)
38
39 rx = new prt.RenderText
40 rx.Text = "我的单位地址"
41 rx.x = 40
42 rx.y = 55
43 doc.body.Children.Add(rx)
44
45 rx = new prt.RenderText
46 rx.Style.FontSize = 12 '字体大小
47 rx.Text = "我的电话号码"
48 rx.x = 41
49 rx.y = 63
50 doc.body.Children.Add(rx)
51
52 rx = new prt.RenderText
53 rx.Text = "我的签名"
54 rx.x = 43
55 rx.y = 100
56 doc.body.Children.Add(rx)
57
58 rx = new prt.RenderText
59 rx.Text = CurRow("发货日期")
60 rx.x = 23
61 rx.y = 109
62 doc.body.Children.Add(rx)
63
64 rx = new prt.RenderText
65 rx.Style.FontSize = 12 '字体大小
66 rx.Text = CurRow("姓名")
67 rx.x = 127
68 rx.y = 34
69 doc.body.Children.Add(rx)
70
71 rx = new prt.RenderText
72 rx.Text = CurRow("地址")
73 rx.Style.TextAlignVert = prt.AlignVertEnum.Bottom
74 ra.Children.Add(rx) '将文本对象加入到容器ra中
75
76 rx = new prt.RenderText
77 rx.Style.FontSize = 12 '字体大小
78 rx.Text = CurRow("手机")
79 rx.x = 140
80 rx.y = 64
81 doc.body.Children.Add(rx)
82
83 rx = new prt.RenderText
84 rx.Style.FontSize = 12 '字体大小
85 rx.Text = CurRow("电话")
86 rx.x = 180
87 rx.y = 64
88 doc.body.Children.Add(rx)
89
90 doc.Body.Children.Add(ra) '将容器ra加入到报表
91 Doc.PrinterName = "Oki 5330SC"
92 Doc.Preview() '预览报表

5楼
leiyunjn 发表于:2011/8/7 0:52:00
另外还再咨询一个问题,怎么查看自己Foxtable的版本?界面中没找到“关于”项。新版的加密狗专业版本从哪里可以下载到呢?
6楼
狐狸爸爸 发表于:2011/8/7 7:40:00

在设置好自定义纸张的宽度和高度的等其他属性后,再设置AutoRotate属性为False.

 

1、杂项 - 工具 - 版本检测

2、原地址重新下载即可。

7楼
leiyunjn 发表于:2011/8/7 12:59:00
以下是引用狐狸爸爸在2011-8-7 7:40:00的发言:

在设置好自定义纸张的宽度和高度的等其他属性后,再设置AutoRotate属性为False.

我试着把那行代码换了几个位置,效果还是没变化。

 

前面还忘了交待一个情况,在“打印预览”里面的效果是横向的,只有在打印到纸上的时候才会变成纵向。我试着用我的几台喷墨打印机、针式打印机都进行过测试,全都是预览正常,打印出来是纵向的。

8楼
yangming 发表于:2011/8/7 13:29:00

上传你的狐表文件吧,帮你测试一下

9楼
yangming 发表于:2011/8/7 14:08:00

我用这段代码试了,打出来是横向的,你可以试试

 

 

Dim doc As New PrintDoc() '定义一个报表
 doc.PageSetting.Landscape = True '横向打印
doc.AutoRotate = False '禁止自动旋转打印内容
doc.PageSetting.Width = 230 '纸张宽度为230毫米
doc.PageSetting.Height = 127 '纸张高度为127毫米
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim ra As New prt.RenderArea
ra.Width = 85 '宽度为90毫米
ra.Height = 15 '高度为15毫米
ra.x = 115
 ra.y = 50
 
Dim rx As prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("客户信息").Current

rx = new prt.RenderText
 rx.Style.FontSize = 12 '字体大小
 rx.Text = "我的姓名"
rx.x = 33
 rx.y = 30
doc.body.Children.Add(rx)
 
rx = new prt.RenderText
 rx.Style.FontSize = 12 '字体大小
rx.Text = "济南"
 rx.x = 75
 rx.y = 30
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "发货单位"
rx.x = 40
 rx.y = 37
doc.body.Children.Add(rx)

 rx = new prt.RenderText
rx.Text = "我的单位地址"
 rx.x = 40
 rx.y = 55
  doc.body.Children.Add(rx)
 
 doc.Body.Children.Add(ra) '将容器ra加入到报表
 Doc.PrinterName = "Oki 5330SC"
 Doc.Preview() '预览报表

10楼
leiyunjn 发表于:2011/8/7 17:20:00

我访问狐表网站和论坛超级慢,2个多小时才打开这个帖子。

 

把我的表文件上传上来,劳烦大家帮我看一下。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:快递单打印表.table

共10 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .05469 s, 3 queries.