以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表页面设置AutoRotate 不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81043)

--  作者:sjzsdu
--  发布时间:2016/2/17 11:29:00
--  专业报表页面设置AutoRotate 不起作用
\'定义一个报表,并完成页面设置
Dim doc As New PrintDoc \'定义一个报表

doc.AutoRotate = False
doc.PageSetting.Width = 70  \'纸张宽度为100毫米
doc.PageSetting.Height = 45 \'纸张高度为120毫米
doc.PageSetting.Landscape = False \'非横向打印
doc.PageSetting.LeftMargin = 1
doc.PageSetting.RightMargin = 1
doc.PageSetting.TopMargin = 1
doc.PageSetting.BottomMargin = 1

我要做一个标签,标签纸的大小是宽70高45,连续打印的。预览的时候变成了宽45,高70


doc.AutoRotate = False 这句代码不起作用


--  作者:大红袍
--  发布时间:2016/2/17 11:31:00
--  

试试

 

doc.PageSetting.Landscape = true

 

不然就只能调整打印机设置了

 

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

 


--  作者:sjzsdu
--  发布时间:2016/2/17 12:09:00
--  
doc.PageSetting.Landscape = true 后
显示是正常了,但是打印出来的字的方向不对了
打出来的内容跨页了

--  作者:大红袍
--  发布时间:2016/2/17 14:08:00
--  
内容跨页,说明你设置的宽高有问题,设小一点。
--  作者:sjzsdu
--  发布时间:2016/3/3 10:19:00
--  回复:(大红袍)试试 doc.PageSetting.Land...
打印机设置了,还是不行呢
autorotate没有起作用啊
是个问题

--  作者:大红袍
--  发布时间:2016/3/3 10:25:00
--  

不预览直接打印呢?我测试没问题。

 

Doc.print