asked on
C# Code:
public partial class XtraReportMailingLabels: DevExpress.XtraReports.UI.XtraReport {
int skipnumber;
const int skip = 11;
public XtraReportMailingLabels() {
InitializeComponent();
skipnumber = skip;
}
private void xrPanel1_BeforePrint (object sender, System.Drawing.Printing.PrintEventArgs e) {
if(skipnumber >= 0 ) {
e.Cancel = true;
}
}
private void Detail_BeforePrint(object sender, System.Drawing.Printing.PrintEventArgs e) {
if(skipnumber > 0) {
DevExpress.Data.Browsing.DataBrowser browser = this.fDataContext[this.DataSource, this.DataMember];
browser.PositionChanged += new EventHandler(browser_PositionChanged);
}
skipnumber--;
}
bool stop = false;
void browser_PositionChanged(object sender, EventArgs e) {
((DevExpress.Data.Browsing.ListBrowser)(sender)).PositionChanged -= browser_PositionChanged;
if(!stop)
((DevExpress.Data.Browsing.ListBrowser)(sender)).Position =0;
if(skipnumber <= 0) {
stop = true;
}
}
}
VB CODE:
Public Class XtraReportMailingLabels
Inherits DevExpress.XtraReports.UI.XtraReport
Private skipnumber As Integer
Const skip As Integer = 11
Public Sub New()
InitializeComponent()
skipnumber = skip
End Sub
Private Sub xrPanel1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles XrPanel1.BeforePrint
If skipnumber >= 0 Then
e.Cancel = True
End If
End Sub
Private Sub Detail_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Detail.BeforePrint
If skipnumber > 0 Then
Dim browser As DevExpress.Data.Browsing.DataBrowser = Me.fDataContext(Me.DataSource, Me.DataMember)
AddHandler browser.PositionChanged, AddressOf browser_PositionChanged
End If
skipnumber -= 1
End Sub
Private [stop] As Boolean = False
Private Sub browser_PositionChanged(ByVal sender As Object, ByVal e As EventArgs)
DirectCast((sender), DevExpress.Data.Browsing.ListBrowser).PositionChanged -= browser_PositionChanged()
If Not [stop] Then
DirectCast((sender), DevExpress.Data.Browsing.ListBrowser).Position = 0
End If
If skipnumber <= 0 Then
[stop] = True
End If
End Sub
End Class