Použil jsem dle doporučení standard, ale dostal jsem se do problému - při procházení recordsetu prostě neumím přidat novou stránku stále mi to přepisuje tu první, prosím o radu.
rsPRP.MoveFirst()
While Not rsPRP.EOF
e.Graphics.DrawString(GetCustId(Trim(rsPRP.Fields("ADR_Id").Value())), Font, Brushes.Black, 112, 21)
e.Graphics.DrawString(Format(Now, "dd.MM.yyyy"), Font, Brushes.Black, 145, 21)
rsPRP.MoveNext()
e.HasMorePages = True
End While
uvádím jen část kodu, prostě neumím přejít a doplnit novou stránku
|