Hallo zusammen,
ich habe mal wieder ein kleinen Prob…
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DWORD nSize;
char computer_name[255];
char nl[2] = {10, 13};
nSize = sizeof( computer_name );
GetComputerName( computer_name, &nSize );
AnsiString tmp = nl;
AnsiString i = computer_name;
TPrinter *Prntr = Printer();
TRect r = Rect(200,200,Prntr->:stuck_out_tongue_winking_eye:ageWidth - 200,Prntr->:stuck_out_tongue_winking_eye:ageHeight- 200);
Prntr->BeginDoc();
for( int i = 0; i Lines->Count; i++)
Prntr->Canvas->TextOut(200,200 + (i *
Prntr->Canvas->TextHeight(Memo1->Lines->Strings[i])),
Memo1->Lines->Strings[i]);
Prntr->Canvas->Brush->Color = clBlack;
Prntr->Canvas->FrameRect®;
Prntr->EndDoc();
}
Kann mir jemand mal zeigen, wie ich es schaffe, das der Drucker nach der 85 Lines/Zeile eine neue Seite ausdruckt, da bis jetzt bis zum Blattende gedruckt wird und es dann nicht weiter geht.
Big Thx
mfg. x-p