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
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.