При распечатке заполненного MsFlexgrid, с числом записей=300
происходит печать тока первой страницы,отображающей первые 55 записей...Подскажите пожалуйста...в чем дело?
- Код: Выделить всё
Dim BeginPage, EndPage, NumCopies, Orientation, i
commondialog1.CancelError = True
On Error GoTo ErrHandler
commondialog1.ShowPrinter
On Error GoTo ErrHandler
BeginPage = commondialog1.FromPage
EndPage = commondialog1.ToPage
NumCopies = commondialog1.Copies
Orientation = commondialog1.Orientation
Printer.FontSize = 10
Printer.CurrentY = 150
For i = 1 To NumCopies
Printer.CurrentY = 800
Printer.PaintPicture grid.Picture, Printer.Width / 25, Printer.Height / 25
Printer.EndDoc
Next
End Sub
