Was meinst du mit Druckereigenschaften? Schriftart, Schriftschnitt etc?
Also:
Du nimmst die Klausel
Printers in die Uses-Anweisung auf. Dann programmierst du z.B. auf Button1 folgendes:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| TForm1.Button1Klick(Sender: TObject);
begin
Printer.Orientation:=poPortrait (Hochformat) bzw. poLandscape (Querformat);
Printer.Begindoc;
SetMapMode(Printer.Canvas.Handle, mm_text);
-> Nun kommt der Teil mit Schriftart, Schritfschnitt etc.
With Printer.Canvas Do
Begin
FontSize:=20; Font.Name:='Arial'; Font.Color:=clRed; ...
End;
Printer.Enddoc;
end; |
Linien auf dem Drucker ziehst du z.B. mit
MoveTo(X,Y) und
LineTo(X,Y), wobei du mit MoveTo (wie der Name sagt) auf einen Punkt des Papieres gehst und mit LineTo eine Linie von dort zu einem anderen Punkt ziehst. Fürs StrinGrid müßtest du eigentlich nur noch berechnen, je nachdem wie viele Zeilen/Spalten du hast..
