以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]奇怪,PaperKind无效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69617)
--  作者：yinyb36
--  发布时间：2015/6/8 11:13:00
--  [求助]奇怪,PaperKind无效

Dim tbl As WinForm.Table = e.Form.Controls("Table1")
Dim tb As Table = tbl.Table
With tb.PrintInfo
    .Title = "统计表"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 13
    .FitIntoPage = True
End With
tb.Print(True,False)

 

代码中,.PaperKind 不管等于多少,都是A4纸, 使用 .PaperWidth和.PaperHeight 也无效
--  作者：Bin
--  发布时间：2015/6/8 11:14:00
--  
看看这里 http://www.foxtable.com/help/topics/2904.htm
--  作者：yinyb36
--  发布时间：2015/6/8 11:18:00
--  

虚拟打印机呢?
--  作者：大红袍
--  发布时间：2015/6/8 12:18:00
--  

 测试了一下，是有问题的。代码已经无效，如果要生效，还必须这样写代码

 

Tables("表B").PrintSetting()
With Tables("表B").PrintInfo
    .Title = "2011年9月订单"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 8
    .FitIntoPage = False
End With
Tables("表B").Print(True,False)

 

 建议你还是用其他方式生成吧
--  作者：yinyb36
--  发布时间：2015/6/8 14:20:00
--  

Dim Chart As WinForm.Chart
Chart = e.Form.Controls("Chart1")
Dim doc As New PrintDoc \'定义一个报表对象
Dim rm As New prt.RenderImage \'定义一个图片对象
rm.Image = Chart.Image  \'设置图片

doc.PageSetting.PaperKind = 13 \'这个也无效

只能用这两个控制纸张大小

Doc.PageSetting.Height = 120
Doc.PageSetting.Width = 150

 

PaperKind 都废了,新版能修复吗?
--  作者：大红袍
--  发布时间：2015/6/8 15:05:00
--  

呃，有效啊

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.PaperKind = 8 \'这个也无效
doc.Preview()
--  作者：大红袍
--  发布时间：2015/6/8 15:05:00
--  

这样写也有效

 

Dim doc As New PrintDoc \'定义一个报表对象
doc.PageSetting.PaperKind = 8 \'这个也无效
doc.Preview

 
--  作者：yinyb36
--  发布时间：2015/6/8 15:15:00
--  

呃,XP可以,回家再试试WIN7