Forum: Multimedia
by verkouter,
7. Okt 2018
Die Abfrage habe ich auch schon an die verschiedensten Stellen im Code eingebaut. Das Problem, es werden jetzt zwar nur die markierten Einträge gedruckt, aber die senkrechten
Linien weiter gezeichnet, und im Kopf wird die Seitenzahl berechnet, bezogen auf alle Einträge.
Forum: Multimedia
by verkouter,
3. Okt 2018
Meine Vermutung ist, das der Code Spaltenweise arbeitet um senkrechte Linien zu Zeichnen. Und diesen ganzen Aufbau verstehe ich nicht.
Beim Orginalcode sieht das Protokoll aus, wie in 1.pdf und mit dem Code von Kodezwerg wie in 2.pdf . Ist schon ein kleiner Unterschied.
Forum: Multimedia
by verkouter,
3. Okt 2018
Mein Problem ist ja, das ich den Code jetzt schon nicht verstehe, alle Umrechnungen auf Papiergröße und Positionierungen.
Aber es kommt halt ein fertiges Formular bei raus.
Forum: Multimedia
by verkouter,
3. Okt 2018
Hallo Kodezwerg,
habe deinen Code etwas umgeändert.
procedure TForm1.ToolButton8Click(Sender: TObject);
Var
LineHeight,i,j,Y,X:Integer;
begin
if PrintDialog1.Execute then
begin
Printer.Title := 'Mischungsliste';
Forum: Multimedia
by verkouter,
30. Sep 2018
Hallo, brauche wiedermal Hilfe.
Ich habe im Internet folgenden Code gefunden, der ein Listview ausdruckt.Blicke leider nicht durch.
procedure tform1.PrintListview(oListView: TListView; PrintDialog: TPrintDialog; lvTitel: string);
var
pWidth, pHeight, i: Integer;
v, h: Real;
CurItem, iColumnCount: Integer;
aCols: array of Integer;