Тема: Печать из PageControl

Ответить в теме
Показано с 1 по 5 из 5
  1. Вверх #1
    Новичок
    Пол
    Мужской
    Адрес
    127.0.0.1
    Сообщений
    65
    Репутация
    11

    Question Печать из PageControl

    Приветствую. Среда разработки Delphi. Проблема: есть форма, на форме компонент PageControl, ну а на его закладке другие компоненты. Необходимо распечатать всю информацию, находящуюся ТОЛЬКО на этой закладке компонента PageControl. Облазил весь поисковик да толку мало. Нашёл близкий к правде вариант:

    procedure TForm1.Button1Click(Sender: TObject);
    var
    i, Start, Stop: Integer;
    begin
    PrintDialog1.Options := [poPageNums, poSelection];
    PrintDialog1.FromPage := 1;
    PrintDialog1.ToPage := PageControl1.PageCount;
    PrintDialog1.MinPage := 1;
    PrintDialog1.MaxPage := PageControl1.PageCount;
    if not PrintDialog1.Execute then exit;
    if PrintDialog1.PrintRange = prAllPages then
    begin
    Start := PrintDialog1.MinPage - 1;
    Stop := PrintDialog1.MaxPage - 1;
    end
    else //Если выбрано отличное от печати «Всё»
    if PrintDialog1.PrintRange = prSelection then
    begin
    Start := PageControl1.ActivePageIndex;
    Stop := Start;
    end
    else /Если выбрано отличное от «Выделенный фрагмент»
    begin
    Start := PrintDialog1.FromPage - 1;
    Stop := PrintDialog1.ToPage - 1;
    end;
    //Начало печати
    Printer.BeginDoc;
    for i := Start to Stop do
    begin
    PageControl1.Pages[i].PaintTo(Printer.Handle, 10, 10);
    if i <> Stop then
    Printer.NewPage;
    end;
    Printer.EndDoc;
    end;

    НО этот вариант не подходит, т.к. с его помощью на листе бумаги получается очень маленькая картинка без соблюдения масштаба.

    Вопрос: как, используя этот вариант (выше), программно задать нормальный масштаб, чтобы результат напечатался на весь лист формата А4 ?
    Благодарю.


  2. Вверх #2
    Не проще ли использовать нормальные компоненты для печати?

  3. Вверх #3
    Новичок
    Пол
    Мужской
    Адрес
    127.0.0.1
    Сообщений
    65
    Репутация
    11
    Цитата Сообщение от AxelF Посмотреть сообщение
    Не проще ли использовать нормальные компоненты для печати?
    Если можно, пример таких компонентов, пожалуйста...

  4. Вверх #4
    FastReport , QuickReport сам пользовался кажется фастом

  5. Вверх #5
    Новичок
    Пол
    Мужской
    Адрес
    127.0.0.1
    Сообщений
    65
    Репутация
    11
    Цитата Сообщение от AxelF Посмотреть сообщение
    FastReport , QuickReport сам пользовался кажется фастом
    К сожалению, на их изучение у меня уйдёт времени многим больше, чем у меня есть.


Ответить в теме

Метки этой темы

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения