Отпечатать Memo использовав поля

[Kronos913]

Как отпечатать из Memo так чтобы принтер использовал поля настроенные в PageSetupDialog ?

[Kronos913]

Есть какой-то ответ?=)

[Foreseen]

Сообщение от Kronos913

Как отпечатать из Memo так чтобы принтер использовал поля настроенные в PageSetupDialog ?

Сообщение от Kronos913

Есть какой-то ответ?=)

Для этого нужно страдать (ненавижу графику). Приводить миллиметры в пиксели, учитывать разрешение монитора, принтера и тому подобную гадость.

procedure SetOffsetsAndPrint;
var
  OffsetLeft, OffsetTop: integer;         //отступы в px
  OffsetLeft_mm, OffsetTop_mm: integer;   //отступы в мм
  ResX, ResY: integer;                    //разрешение принтера
begin
   with Printer do
     begin
      //нам нужно знать разрешение принтера по осям
      resX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
      resY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);

      //приводим логические единицы принтера к линейным
      OffsetLeft := Round((resX/25.4) * OffsetLeft_mm);
      OffsetTop  := Round((resY/25.4) * OffsetTop_mm);

      //в печать
      Title:= 'NewPrint';
      BeginDoc;
      Canvas.TextOut(OffsetLeft, OffsetTop, 'ТЕКСТОВАЯ СТРОКА');
      EndDoc;
     end;
end;

[Foreseen]

К тому же, это не решает проблему отступа справа, нужно еще пару этажей кода нагородить. Проще использовать RichEdit, там намного проще реализовать печать с нужными параметрами.

[northener]

Kronos913, печатать с помощью редакторов отчётов (как это делают все нормальные люди) не предлагать?

[Kronos913]

Сообщение от northener

Kronos913, печатать с помощью редакторов отчётов (как это делают все нормальные люди) не предлагать?

Предлагайте =)

[Kronos913]

Я когда-то пробовал через AssignPrn и переменную текстового файла. Но делать имитацию полей через пустые строки и добавлением пробелов перед каждой строкой - кажется довольно кривым методом

И другой вопрос, как в этому методу присоединить выбор принтера?

Через графический метод пытался, но выходит какая-то хрень если печатать несколько строк...

[Kronos913]

Я какой-то такой код сделал. Сейчас на тестах сработал ок, а раньше выдавал ерунду какую-то: строки наслаивались одна на другую

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, i: integer;
begin
 If memo1.Lines.Count>0 then begin
  {Чтобы не тратить бумагу и чернила на тесты, делаю печать в файл}
  Printer.PrinterIndex:=2;

  {Основной код}
  Printer.Canvas.Font:=FontDialog1.Font;
  a:=Printer.Canvas.TextHeight('1p')+1;
  b:=Printer.PageWidth div 20;
  c:=Printer.PageHeight div 30;

  Printer.BeginDoc;
  For i:=0 to memo1.Lines.Count-1 do begin
    Printer.Canvas.TextOut(b, c+(i*(a)), memo1.Lines[i]);
  End;
  Printer.EndDoc;
 end;
end;

[Kronos913]

  label1.Caption:=IntToStr(Printer.PageHeight);
  label2.Caption:=IntToStr(Printer.PageWidth);

Выдало 6600 и 5100
Каково происхождение этих чисел?

Они особо не вяжется с 21 х 29 см стандартного А4

[Kronos913]

А как работает PrintDialog ?

Я никакой обработки не сделал из того что было введено в диалоговом окне, при этом сохранились все настройки (выбор принтера, размер страницы)