我想做一个小图,打印输出到一个tif文件。代码如下:
Dim rpt As New rptReport
Dim rptPage As New DataDynamics.ActiveReports.PageSettings
rptPage.PaperKind = Drawing.Printing.PaperKind.Custom
rptPage.PaperWidth = 0.5
rptPage.PaperHeight = 0.5
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.CompressionScheme = DataDynamics.ActiveReports.Export.Tiff.CompressionScheme.Ccitt4
tifExporter.Dither = False
tifExporter.Export(rpt.Document, "c:\test-small-pic.tif")
这样会给我打印出一张差不多A4大小的文件,里面有我的内容,
DataDynamics.ActiveReports.Export.Tiff.CompressionScheme.Rle
是可以出小图。
我想问一下,如果我想输出CCitt4格式的文件,是不是必须是A4大小的文件?
CCitt4格式不能自定义图片的大小么,如果可以,怎么设置?
谢谢 |
|