Question

如何给报表背景动态添加自定义水印

Answer 1

1、可在代码中设置：

Private Sub RunBySize(IsPreview As Boolean)
'求得用报表使用的计量单位表示的纸张尺寸值
Dim Width As Double
Dim Length As Double
Width = CDbl(txtWidth.Text)
Length = CDbl(txtLength.Text)
If (Report.Unit = grmuInch) Then
Width = Width / 2.54
Length = Length / 2.54
End If

Report.Printer.PrinterName = "aaaa"

'256代表自定义纸张
'Report.Printer.PaperSize = 256
'Report.Printer.PaperWidth = Width
'Report.Printer.PaperLength = Length
'If ckLandScape.Value Then
' Report.Printer.PaperOrientation = grpoLandscape
'Else
' Report.Printer.PaperOrientation = grpoPortrait
'End If
Report.PrintAsDesignPaper = True
Report.PrintToStretch = False
Report.DesignPaperSize = 256
Report.DesignPaperWidth = Width
Report.DesignPaperLength = Length
If ckLandScape.Value Then
Report.DesignPaperOrientation = grpoLandscape
Else
Report.DesignPaperOrientation = grpoPortrait
End If

If IsPreview Then
Report.PrintPreview True
Else
Report.[Print] False
End If
End Sub