关于自定义页面大小的问题

我想输出一个自定义大小的图片
        Dim rpt As New myReport
        Dim rptPage As New DataDynamics.ActiveReports.PageSettings
        rptPage.PaperKind = Drawing.Printing.PaperKind.Custom
        rptPage.PaperHeight = 3
        rptPage.PaperWidth = 3
        rptPage.Margins.Left = 0
        rptPage.Margins.Right = 0
        rptPage.Margins.Top = 0
        rptPage.Margins.Bottom = 0
        rpt.PageSettings = rptPage
        rpt.Run()

        Dim tifExporter As New DataDynamics.ActiveReports.Export.Tiff.TiffExport
        tifExporter.Export(rpt.Document, “test.tif”)

我这样还是打印出一个A4纸大小的图片，请问我哪里设定的不对。

dof,在吗？help

你好，我正在看这个问题，哈哈

谢谢，拜托了:rose

你好，使用TiffExport导出为Tiff文件时会忽略用户自定义纸张，进行PDF导出时可以使用用户自定义纸张。

我把这两句

Dim tifExporter As New DataDynamics.ActiveReports.Export.Tiff.TiffExport
        tifExporter.Export(rpt.Document, “test.tif”)
         
改成

   Dim pdfExporter As New DataDynamics.ActiveReports.Export.Pdf.PdfExport
            pdfExporter.Export(rpt.Document, "d\small2.tif")

可是，执行到Dim pdfExporter As New DataDynamics.ActiveReports.Export.Pdf.PdfExport这个的时候又报错说没有license。。。。。。
不知道怎么回事啊，同一个工程我什么都没改，就改了这两句。

你好，

PDF导出打代码需要修改以下，然后查看licenses.licx文件中是否有PdfExport相关的信息

1.         Dim pdfExport As New DataDynamics.ActiveReports.Export.Pdf.PdfExport
   
2.         pdfExport.Export(rpt.Document, "test.pdf")

复制代码

license.licx文件只有1行，DataDynamics.ActiveReports.ActiveReport, ActiveReports6,

文件里同样没有tiffExport的信息，tiffExport怎么可以正常运行呢。

我这边使用以上代码可以正常导出PDF文件，如果你从VS工具箱中拖拽一个PdfExport控件到窗体上还会报这个错吗，你可以尝试一下