dotNETportal.cz

Dobrý den,

potřeboval bych poradit s následujícím :

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim X As Integer = 50
Dim Y As Integer = 30
Dim row As Integer = 1
Dim PísmoTisku As New Font("Arial", 10)


For i As Integer = 0 To Form2.DG.RowCount - 1
            e.Graphics.DrawString(row, PísmoTisku, Brushes.Black, X - 30, Y)
            e.Graphics.DrawString(CStr(Form2.DG.Rows(i).Cells(0).Value).Trim(), PísmoTisku, Brushes.Black, X, Y)
            e.Graphics.DrawString(CStr(Form2.DG.Rows(i).Cells(1).Value).Trim(), PísmoTisku, Brushes.Black, X + 80, Y)
            e.Graphics.DrawString(CStr(Form2.DG.Rows(i).Cells(2).Value).Trim(), PísmoTisku, Brushes.Black, X + 150, Y)
            e.Graphics.DrawString(CStr(Form2.DG.Rows(i).Cells(3).Value).Trim(), PísmoTisku, Brushes.Black, X + 210, Y)
            e.Graphics.DrawString(CStr(Form2.DG.Rows(i).Cells(4).Value).Trim(), PísmoTisku, Brushes.Black, X + 230, Y)
            e.Graphics.DrawString(CStr(Form2.DG.Rows(i).Cells(5).Value).Trim(), PísmoTisku, Brushes.Black, X + 280, Y)


Y = Y + 15

If row = 50 Then
   e.HasMorePages = True
   Y = 30
   row = 0
  Else
   e.HasMorePages = False
End If

    row = row + 1
Next
End Sub

z DataGridu tahám data, které chci vytisknout, ale nejde mi se dostat na další stránku. Buď to se to vykresluje kamsi do nekonečna nebo se data na stránce přepisují.

problém bude asi s e.HasMorePage

Díky

Když nastavíte e.HasMorePages na True, zavolá se PrintPage událost znovu a s novým e.Graphics kreslícím plátnem pro každou stránku k tisku. Vytiskněte tedy řádků padesát a pak nastavte e.HasMorePages na True, pokud nějaké zbývají a v dalším zavolání PrintPage pokračujte od řádku 51 dále. Proměnnou row tedy budete nejspíše chtít posunout nad samotný handler události PrintPage.

Mimochodem, deklaraci písma je vhodné zaobalit do Using ... End Usign bloku, protože implementuje IDisposable, následovně:

Dim row = 0
Sub 
  Using f = New Font("Arial", 10)
    For row To Form2.DG.RowCount - 1
      Dim i = row Mod 50
      ' i je Zbytek po dělení, pro řádek #51 bude na stránce 
      ' #2 vracet jedničku, protože je to první řádek té
      ' stránky. Proměnnou i použijte pro měření umístění textů
      ' ...
    Next
  End Using
End Sub

Dobrý den,

nějak se mi nedaří, ať dělám co dělám.

Můžete mi prosím trochu víc poradit s kódem?

Podmínka je splněna, souřadnice pro text se "vrátí" na začátek, ale data se vypisují stále na stejnou stránku a přepisují se.

Díky moc za pomoc.

http://www.vbnet.cz/forum-tema--5789-tis...

Dobrý den,

stále se mi nedaří :(

Může mi někdo poradit, nastínit (např. 500 záznamů po 20řádcích)

Když už to dostanu na další stránku, tak mi to přepíše i tu první tím co je na druhé

nebo

mám první stránku a druhou se zbytkem záznamů.

Už fakt nevím ...

Díky předem