Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Drucken mit Abfrage
danielpt - Fr 08.08.03 15:21
Titel: Drucken mit Abfrage
Frage: Wie kann ich einrichten, dass das Prog den "Drucken"-Dialog bringt und dann macht was der Benutzer eingibt bzw. einstellt?
Meine bisherige Source:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
if RichEdit1.Text<>'' then begin
Richedit1.Print('Dokument drucken');
end;
end; |
Hier druckt er aber immer gleich... Ohne Print-Dialog...
Andreas L. - Fr 08.08.03 15:44
Hi,
du musst auf dein Form einen PrintDialog setzen.
Delphi-Quelltext
1:
2:
3:
4:
| if PrintDialog1.Execute then
begin
RichEdit1.print('Dokument drucken');
end; |
danielpt - Fr 08.08.03 15:51
naja, der Dialog kommt, wenn ich aber eingeben: "Exemplare: 14"(o.ä.) Dann druckt er trotzdem nur eine Seite...
Terra23 - Fr 08.08.03 16:15
Echt? Wie wäre es mit einer Schleife?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| Form1.Button1Click(Sender: TObject);
Var Anzahl: Integer;
begin
If PrintDialog1.Execute Then
Begin
For Anzahl:=1 To PrintDialog1.Copies Do
RichEdit1.Print('Druckprogramm');
End
end; |
... wobei ich "Dokument drucken" ein wenig unglücklich finde. Anstelle von "Druckprogramm" solltest du vielleicht den Namen des Tools einsetzen.. :-)
danielpt - Fr 08.08.03 16:58
thx, jetzt gehts...
freq.9 - Fr 24.10.03 12:52
Ma ne Frage:
Ich hab nu nen PrintDialog in mein Programm reingepackt aber wie bekomm ichs hin dass da son Drucken Fenster kommt und so ? Hab grad ma:
| Zitat: |
if PrintDialog1.Execute then
begin
RichEdit1.print('Dokument drucken');
end; |
versucht aber dann meldet Delphi mit "undeclared identifer 'print'"
Terra23 - Fr 24.10.03 18:52
... das sollte eigentlich so gehen. Ich sehe keine Fehler. Hast du denn ein RichEdit auf der Form?
freq.9 - So 26.10.03 13:29
ne das RichEdit is ne Memo, ist aber in meinem Code geändert (also es steht in meinem Code nicht RichEdit1.print sondern Textarea.Print [Textarea = Memo])
Terra23 - Mo 27.10.03 18:48
... so genau weiß ich es nicht, aber ich bin der Meinung, daß Memo kennt die Eigenschaft "Print" nicht. Gib einfach mal "Memo1." ein und warte ein wenig. Dann drück "p" und wenn "Print" vorhanden ist, sollte es auch auftauchen..
ErnestoChe - Mo 27.10.03 19:17
Hi,
ein Memo hat keine Druck-Methode wie ein RichEdit. Da musst du alles von Hand machen. Das geht mit der Funktion Printer aus der Unit Printers. Mach dich mal in der OH schlau. Da gibts sogar Beispielcode.
MFG
- Ernesto -
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!