Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: TPrinter - Etikettlänge einstellen

   
    by mmvisual, 13. Aug 2012
  Ich habe es raus gefunden, ich muss den DC des Druckers löschen:
  
  TWinPrinter(Printer).Handle := 0;
  
  Danach übernimmt der meine Einstellung:
  PDev := TPrinterDevice(Printer.Printers.Objects);
  PDev.DevMode^.dmPaperLength := i2;
  PDev.DevMode^.dmPaperSize := 256; // = DMPAPER_USER;
  PDev.DevMode^.dmFields := PDev.DevMode^.dmFields or 6; // = DM_PAPERLENGTH 4 | DM_PAPERSIZE 2
• Forum: Programmieren allgemein

  AW: TPrinter - Etikettlänge einstellen

   
    by mmvisual, 12. Aug 2012
  Vielen Dank für die Info.
  
  Ich habe nun schon seit einigen Stunden alle möglichen Routinen und Reihenfolgen ausprobiert. Irgendwie klappt das nicht.
  
  Hier ein Stück Code, ich denke der sollte klappen:
  
  procedure TWinPrinter.SetPageLength(iLen, iWidth: Integer);
  var
  PDev: TPrinterDevice;
  DevMode: PDeviceMode;
• Forum: Programmieren allgemein

  [Erledigt] TPrinter - Etikettlänge einstellen

   
    by mmvisual, 12. Aug 2012
  Hallo,
  
  Ich habe einen PTouch QL-560 Etikettendrucker. Der druckt Klebeetikette mit 29 mm Breite, denn das Papier ist gerade so breit.
  
  Das Drucken mit Printer.BeginDoc Printer.Canvas.TextOut und Printer.EndDoc usw. klappt auch prima.
  
  Das Problem: Die Höhe des Ausdruckes ist immer variable, je nach dem wie viel Text kommen soll. Der Ausdruck mit der PTouch Software kann die Länge des...