Код:
procedure TForm1.FormCreate(Sender : TObject);
begin
FNumber := 0;
FNumber2 := 0;
end;
procedure PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
Printer.Canvas.Font:=Form1.Memo1.Font;
Printer.Canvas.Font.size:=45;
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg('Ошибка печати.', mtError, [mbOk], 0);
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Inc(FNumber);
Memo1.Text := IntToStr(FNumber);
Memo1.Lines.Add('окно1');
PrintStrings(Memo1.Lines);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Inc(FNumber2);
Memo2.Text := IntToStr(FNumber2);
Memo2.Lines.Add('окно2');
PrintStrings(Memo2.Lines);
end;
end.
Подскажите как можно исправить.
При печати из Memo каждый символ печатается в строку:
(Вариант1)
1
О
к
н
о
1
А нужно что б была печать
(Вариант2)
1
Окно1
Где и как можно поправить что б печаталось как в варианте 2 и по центру листа, печать происходит выравнивание по левому краю.