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

我想输出一个自定义大小的图片
        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纸大小的图片，请问我哪里设定的不对。

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

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

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

你好，

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

1.         Dim pdfExport As New DataDynamics.ActiveReports.Export.Pdf.PdfExport
   
2.         pdfExport.Export(rpt.Document, "test.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。。。。。。
不知道怎么回事啊，同一个工程我什么都没改，就改了这两句。

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

谢谢，拜托了:rose

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

dof,在吗？help