ActiveReport3.0升级到7.0时一些方法的变化

一下是vb中调用AR3时的代码：
With rptMain.Printer
            .StartJob ""            '印刷ジョブ開始
            For intI = 0 To rptMain.Pages.Count - 1
                DoEvents
                .StartPage          '1つの印刷ジョブ内で、新しいページを始める
                                    'ページ単位の印刷
                .PrintPage rptMain.Pages(intI), LeftSize, TopSize, WidthSize, HeightSize
                .EndPage            '処理中のページを終了
            Next intI
            .EndJob                 '印刷ジョブ終了
        End With
AR7.0中printer类中找不到这些方法，使用什么方法可以达到同样的效果呢？
谢谢。

回复 1楼lucky的帖子

非常抱歉，AR 3.0 升级到AR 7.0改变确实很大。

这里有两篇相关的博客，供您参考：
修改 ActiveReports3/6 升级到ActiveReports 7 之后的命名空间错误
ActiveReports区域报表实现自定义打印操作

您好，根据您提供的案例，我试用了下，无法达到效果。
请问GrapeCity.ActiveReports.SystemPrinter 可以设定打印用纸类型吗（即横打还是竖打）？
现象是我设定了SectionReport的打印用纸类型后，但是SystemPrinter打印结果还是默认的打印用纸类型。

我写了一个例子请您协助调查一下吧。
里面一览中有详细的说明和疑问。
谢谢了。

回复 4楼lucky的帖子

demo收到了， 明天给您答复。

嗯，好的。谢谢了。

回复 6楼lucky的帖子

帮您实现了一个--横、全在一页的打印效果，代码截图如下：

1. 
   
2. private void button3_Click(object sender, EventArgs e)
   
3.         {
   
4.             rptTestHigh rpt1 = new rptTestHigh();
   
5. 
   
6.             rpt1.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4;
   
7.             //サイズ：A4　指定
   
8.             rpt1.PageSettings.PaperSource = System.Drawing.Printing.PaperSourceKind.AutomaticFeed;
   
9.             //給紙：自動　指定
   
10.             rpt1.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape;
    
11. 
    
12.             rpt1.PageSettings.Margins = new GrapeCity.ActiveReports.Document.Section.Margins(0,0,0,0);
    
13.             rpt1.PrintWidth = rpt1.PageSettings.PaperWidth * 2;
    
14.             rpt1.PageSettings.MirrorMargins = true;
    
15. 
    
16.             rpt1.Run(false);
    
17. 
    
18.             rpt1.Document.PrintOptions.PageScaling = GrapeCity.ActiveReports.Extensibility.Printing.PageScaling.ShrinkToPrintableArea;
    
19. 
    
20.             rpt1.PrintReport(true, true);
    
21.         }
    

复制代码

这里有一篇AR打印的博客，供您参考：ActiveReports区域报表实现自定义打印操作

非常感谢。
现在还存在的问题是，打印出来的报表上面的余白太大了。有没有办法可以解决下？

回复 8楼lucky的帖子

在设置了这个后，缩放了内容，故报表上面的空白原因。

1. 
   
2. rpt1.Document.PrintOptions.PageScaling = GrapeCity.ActiveReports.Extensibility.Printing.PageScaling.ShrinkToPrintableArea;
   

复制代码

非常抱歉。

嗯，没事。还是使用GrapeCity.ActiveReports.SystemPrinter类中提供的方法解决了。
总之很感谢耐心的回复。