-----------------------------------------------------------------
procedure GetDialogInfo(var Pages: Integer): Boolean; virtual;
Считывает информацию, необходимую для печати выделенных стра- ниц документа, и возвращает True, если выбор страниц возможен. Ис- пользовать Pages не обязательно, но если легко определить число страниц, GetDialogInfo нужно передать в параметре Pages число страниц в документе. В противном случае HasNextPage следует уста- новить в 0, а печать будет продолжаться, пока HasNextPage не возв- ратит False.