Тонкости метода Printer.PaintPicture

[Kirill1983]

Доброго всем дня...возникла следущая ситуация:
При распечатке заполненного 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


[Konst_One]

печатается только видимая часть грида

[Kirill1983]

А как весь грид на печать отправить,если не секрет?

[Konst_One]

поищи по форуму или в статьях, это уже многократно обсуждалось

[Kirill1983]

Смотрел еще до публикации темы...
Вопросов как распечатать сам грид не возникает...
А вот как Picture grida расположить на несколько страниц-заковырка...ну да ладно...разберемся
Всем спасибо