Probleme beim Memofeld drucken ....
-
Hallo zusammen,
weis jemand wie ich es mit dieser Routine hinbekomme das er mir die Zeilen nicht aneinander reiht sonder den Zeilenumbruch aus dem Memofeld übernimmt ...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TPrinter *Prntr = Printer();
TRect r = Rect(200,200,Prntr->PageWidth – 200,Prntr->PageHeight – 200);
Prntr->BeginDoc();
Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
Prntr->EndDoc();
}Gruß
Hannes015
-
... indem Du Zeile für Zeile ausm Memo ausliest und Zeile für Zeile an die entsprechende Position aufm PrinterCanvas ausgibst. Der Canvas versteht kein CR/LF wie damals bei DOSe
-
.... sorry aber ich versteh nur Bahnhof ....
-
Du kannst nicht, wie z.B. damals bei DOS, einfach nen Text auf den PrinterCanvas malen und erwarten, daß dieser die Zeilenumbrüche selber macht. Du mußt selber dafür sorgen, daß die Zeilen an die entsprechende Postion gelangen. Nimm dazu z.B. TextOut. Die Positionen für Zeile, Spalte mußt Du selber bestimmen/ausrechnen.
[ Dieser Beitrag wurde am 26.05.2003 um 10:35 Uhr von Peter editiert. ]