czesc
mam prosbe czy ktos moze pomoc mi w wydrukowaniu pliku txt?
opisze sytuacje.
mam pliczek txt jakos sformatowany. jesli wydrukuje go spod notatnika (po uprzednim zmienieniu marginesow to wszystko ok). korzystajac z polecenia
shellexec() drukuje git ale korzysta ze standardowych ustawien notatnika (marginesy). probujac wydruku poprzez memo itp itd nie zachowuje mi formatu tekstu przesuwa niektore wiersze. dla ulatwienia powiem iz tekst do pliku wrzucam ze stringlisty. probuje drukowac ta stringliste ale cos mi nie idzie. jak wydrukowac wiec to cos bez utraty formatu?
dziekuje czesc
0
0
procedure TForm1.Drukuj1Click(Sender: TObject);
var
Line: Integer;
PrintText: TextFile;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font :=form1.FontDialog1.Font;
Printer.Canvas.Font.Color:=clBlack;//zawsze kolor drukowanego tekstu na czarny
Printer.Canvas.Font.Size:=8;
for Line := 1 to listbox1.items.Count - 1 do
{przerwa jest po to aby był margines inaczej obcina}
Writeln(PrintText, ' '+listbox1.items[Line]);
CloseFile(PrintText);
end;
end;
wziĄłem to z helpa dodałem z 2-3 linie i działa przynajmniej u mnie mam jeszcze jedną taką procedurę trochę dłuższą ale jest za bardzo związana z programem bo drukuje jeszcze kilka zmiennych i by się nie przydała
To drukuje listboxa w helpie było dla memo--Pozdrowienia [cya]
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D