Ĺadny brzuch
Mam RichEdita wypełnionego około 150 liniami tekstu, jak je wydrukować.
Gdy robie RichEdit->Print("") nie wiem jak ustawić odpowiednią czcionke ("Courier New")Gdy robie tak:
TPrinter *Prntr = Printer(); TRect r = Rect(100,100,Prntr->PageWidth - 100,Prntr->PageHeight- 100); Prntr->BeginDoc(); Prntr->Canvas->Font->Name = "Courier new"; for( int i = 0; i < REDruk->Lines->Count; i++) Prntr->Canvas->TextOut( 0,0 + (i *Prntr->Canvas->TextHeight(REDruk->Lines->Strings[i])),REDruk-> Lines->Strings[i]); Prntr->Canvas->Brush->Color = clBlack; Prntr->Canvas->FrameRect(r); Prntr->EndDoc();
To drukuje mi tylko pierwszą strone. Proszę o pomoc i z góry dzięki.
Spróbuj zastosować komponent TPrintDialog w Delphi. To może rozwiązać problem.
Mam TPrintDialog.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Gdy robie RichEdit->Print("") nie wiem jak ustawić odpowiednią czcionke ("Courier New")Gdy robie tak:
TPrinter *Prntr = Printer(); TRect r = Rect(100,100,Prntr->PageWidth - 100,Prntr->PageHeight- 100); Prntr->BeginDoc(); Prntr->Canvas->Font->Name = "Courier new"; for( int i = 0; i < REDruk->Lines->Count; i++) Prntr->Canvas->TextOut( 0,0 + (i *Prntr->Canvas->TextHeight(REDruk->Lines->Strings[i])),REDruk-> Lines->Strings[i]); Prntr->Canvas->Brush->Color = clBlack; Prntr->Canvas->FrameRect(r); Prntr->EndDoc();
To drukuje mi tylko pierwszą strone. Proszę o pomoc i z góry dzięki.
Spróbuj zastosować komponent TPrintDialog w Delphi. To może rozwiązać problem.
Mam TPrintDialog.