Firefighter 1966
Grünschnabel
Hey
Brauche dringend Hilfe
Bin im Programmieranfangsstadium!
Wenn ich Ein Feld ausdrucken will habe ich probleme mit der größe des Feldes zu defenieren. Breite und höhe des Feldes wird zwar gedruckt aber er schreibt immer
die erste zeile wiederholt in die nächste.
vorab schon mal vielen dank
void __fastcall TForm1:rucken1Click(TObject *Sender)
{
TPrinter *test = new TPrinter;
String einsatzbericht[230];
if(PrintDialog1->Execute()==true)
{
test=Printer();
//----Drucken des Einsatzberichtes Einsatzleiter-------------------
test->BeginDoc();
Memo2->Lines->Text=RichEdit1->Lines->GetText();
test->Canvas->TextOutA(770,1490,Memo2->Lines->Text);
test->Canvas->TextOutA(770,1580,Memo3->Lines->Text);
test->Canvas->TextOutA(770,1670,Memo4->Lines->Text);
test->Canvas->TextOutA(900,1760,Memo5->Lines->Text);
test->Canvas->TextOutA(1000,1950,Memo6->Lines->Text);
test->Canvas->TextOutA(1000,2040,Memo7->Lines->Text);
test->Canvas->TextOutA(700,2230,Edit44->Text);
test->Canvas->TextOutA(2000,2230,Edit45->Text);
test->EndDoc();
}
}
Brauche dringend Hilfe
Bin im Programmieranfangsstadium!
Wenn ich Ein Feld ausdrucken will habe ich probleme mit der größe des Feldes zu defenieren. Breite und höhe des Feldes wird zwar gedruckt aber er schreibt immer
die erste zeile wiederholt in die nächste.
vorab schon mal vielen dank
void __fastcall TForm1:rucken1Click(TObject *Sender)
{
TPrinter *test = new TPrinter;
String einsatzbericht[230];
if(PrintDialog1->Execute()==true)
{
test=Printer();
//----Drucken des Einsatzberichtes Einsatzleiter-------------------
test->BeginDoc();
Memo2->Lines->Text=RichEdit1->Lines->GetText();
test->Canvas->TextOutA(770,1490,Memo2->Lines->Text);
test->Canvas->TextOutA(770,1580,Memo3->Lines->Text);
test->Canvas->TextOutA(770,1670,Memo4->Lines->Text);
test->Canvas->TextOutA(900,1760,Memo5->Lines->Text);
test->Canvas->TextOutA(1000,1950,Memo6->Lines->Text);
test->Canvas->TextOutA(1000,2040,Memo7->Lines->Text);
test->Canvas->TextOutA(700,2230,Edit44->Text);
test->Canvas->TextOutA(2000,2230,Edit45->Text);
test->EndDoc();
}
}
Zuletzt bearbeitet: