Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Nur ausgewählte Einträge einer Listview drucken

   
    by KodeZwerg, 3. Okt 2018
  Ich habs nicht getestet aber an passender Stelle die Abfrage eingefügt. Hilft das?
• Forum: Multimedia

  AW: Nur ausgewählte Einträge einer Listview drucken

   
    by KodeZwerg, 3. Okt 2018
  Ich find, jetzt wo ich sehe was gedruckt wird, mein Beispiel gar nicht mal so schlecht, bei Nadeldrucker konnte man ein "|" Zeichen vorm Item Hängen um damit ne Vertikale Linie zu drucken, kannst Du gerne mal Versuchen aber ich garantiere für nichts.
  
  edit
  Und jetzt habe ich auch erst Verstanden was TE möchte, seine Funktion mit meiner Abfrage kombiniert.
  Ich schau mir das nach her noch mal...
• Forum: Multimedia

  AW: Nur ausgewählte Einträge einer Listview drucken

   
    by KodeZwerg, 3. Okt 2018
  Hier ohne "with" aber mit Deinen Änderungen
  procedure PrintDlgSelLv(PDlg: TPrintDialog; const LV: TListView; const Title: String = 'by KodeZwerg');
  Var
  LineHeight,i,j,Y,X:Integer;
  begin
  if PDlg.Execute then
  begin
  Printer.Title := Title;
  Printer.Copies := PDlg.Copies;
  Printer.Orientation := poLandscape;
• Forum: Multimedia

  AW: Nur ausgewählte Einträge einer Listview drucken

   
    by KodeZwerg, 30. Sep 2018
  Deine fehlende formatierung macht mir das lesen auf die schnelle unmöglich aber hier ein Beispiel für alles, änder das "alle" halt mit einer "nur diese" variante.
  Uses Printers;
  
  procedure PrintLVSelection(const LV: TListView);
  Var
  LineHeight,i,j,Y,X:Integer;
  begin
  With Printer do
  begin
  BeginDoc;