Παναγιώτη, επειδή αυτό πρόσεξα και επειδή το έχω κάνει ήδη σε πελάτη παραθέτω κώδικά τον οποίο μόλις έφτιαξα γιατι ο φίλος μας το θέλει σε VB
Private Sub doc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles doc.PrintPage
Dim _font As New Font("Tahoma", 8)
Dim lineHeight As Single = _font.GetHeight(e.Graphics)
Dim linesPerPage As Integer = e.MarginBounds.Height / lineHeight
Dim cRow As Integer = 1
For i As Integer = curRow To ds.Tables(0).Rows.Count - 1
e.Graphics.DrawString(ds.Tables(0).Rows(i)(0).ToString(), _font, Brushes.Black, 10, cRow * lineHeight)
e.Graphics.DrawString(ds.Tables(0).Rows(i)(1).ToString(), _font, Brushes.Black, 50, cRow * lineHeight)
cRow += 1
If (cRow > linesPerPage) Then
currow = i - 1
e.HasMorePages = True
Exit For
Else
e.HasMorePages = False
End If
Next
End Sub
Με τον παραπάνω κώδικα αλλάζεις σελίδα αφαιρόντας το κομμάτι
cRow += 1
If (cRow > linesPerPage) Then
currow = i - 1
e.HasMorePages = True
Exit For
Else
e.HasMorePages = False
End If
εκτυπώνεις σεντόνι (ιδιανικό για ταμειακές)
Και έλεγχο στην γραμμή έχω αφού στην ουσία το χαρτί λειτουργεί σαν καμβάς πάνω στον οποίο μπορώ να ζωγραφίσω
Α και ξέχασα να πω ότι κάτι παρόμοιο έχω κάνει και σε βιβλίο πόρτας σε ξενοδοχειακή εφαρμογή που πρέπει με το που γίνεται check-in κάποιος να τυπώνεται σε αυτό
Antonios Chatzipavlis