Zebra Drucker Etiketten Variablen

[HolgerX]

Hmm..

Wieso der Umweg über LPT....

Den Drucker ganz normal unter Windows installieren!

Und dann reicht folgendes, um jedes Script (kann ZPL, EPL oder anderes RAW-Script sein!) direkt programmtechnisch an den Drucker zu schicken:

Delphi-Quellcode:

uses
  WinSpool, Printers;

function SendRAWData(RAWData: AnsiString; Port : Ansistring):boolean;
var
  dwCount        : DWORD;
  hPrinter       : THandle;
  DocInfo        : TDocInfo1A;
  dwJOB          : DWORD;
  dwBytesWritten : DWORD;
begin
  result:=false;
  dwCount := Length(RAWData);
  if OpenPrinterA(PAnsiChar(Port), hPrinter, Nil) then begin
    try
      DocInfo.pDocName := 'RAWPrint';
      DocInfo.pOutputFile := Nil;
      DocInfo.pDatatype := 'RAW';
      dwJob := StartDocPrinterA(hPrinter, 1, @docInfo);
      if dwJob <> 0 then
        try
          if StartPagePrinter(hPrinter) then
            try
              if WritePrinter(hPrinter, PAnsichar(RAWData), dwCount, dwBytesWritten) then
                if dwBytesWritten <> dwCount then
                  raise Exception.Create('Übertragungsprobleme mit '+Port+'!')
                else result:=true;
            finally
              EndPagePrinter(hPrinter)
            end
        finally
          EndDocPrinter(hPrinter);
        end
    finally
      ClosePrinter(hPrinter)
    end;
  end else raise Exception.Create('Drucker '+Port+' nicht zur Verfügung!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Port : string;
  Data : string;
begin
  if PrintDialog1.Execute then begin
    Port := Printer.Printers[Printer.PrinterIndex];
    Data := 'DIES IST DAS ASCII-SCRIPT';
    SendRAWData(Data,Port);
  end;
end;

(Ist nicht optimiert und verwendet nur ASCII (ANSI), was aber OK ist, da die meisten Scriptfähigen Drucker nicht Unicode per Script können!)

Es ist hierbei egal, ob der Drucker per USB/LPT/Netzwerk oder wie auch immer angeschlossen ist.

(Den Printdialog habe nur als Beispiel verwendet, der Drucker kann auch schon vorher selektiert/gespeichert worden sein.)

Edit:
Kann sogar auf normalen z.B. Laserdrucker verwendet werden, um direkt Text zu drucken.

[mjustin]

Zitat von HolgerX:

Wieso der Umweg über LPT....

Den Drucker ganz normal unter Windows installieren!

LPT habe ich hier noch nicht bei den Antworten gesehen (sollte aber im Prinzip so wie ein Share funktionieren). Mit dem Umweg über den Druckertreiber haben wir in einem Windows 2008 Server Umfeld (mit Delphi 2009 Enterprise) Anfang letzten Jahres keine guten Erfahrungen gemacht, was laut Informationen hier im Forum der Printers Unit geschuldet ist. Effekt war, dass nach einigen Ausdrucken die Printerqueue fehlerhafte Jobs enthielt, man dann immer die Queue löschen musste und jedesmal alle Ausdrucke verloren gingen. Der Ausdruck per Stringlist.SaveToFile('\\printserver\printername') mit tausenden Ausdrucken pro Woche deutlich stabiler. Nach Recherchen soll die Printers Unit in Delphi seit Delphi 2009 auch keine wesentlichen Verbesserungen erhalten haben. Wir wollten den Druckertreiber eigentlich nur dazwischenschalten um den Ausdruck mit kleinerer Schriftart auszugeben, und so einige Bäume einzusparen.

[HolgerX]

Hmm..

In meinem Source wird die 'Printers' nur für den Printerport verwendet.
Das Ausdrucken geht direkt über WinSpool-API, ohne Printers....

Die Funktionen werden bei uns intensiv eingesetzt, ebenfalls seit Jahren, gerade im Zusammenhang mit EPL und ZPL Druckern.

Somit kann ich die Printers-Probleme in diesem Zusammenhang nicht nachvollziehen.

[mjustin]

Zitat von HolgerX:

Hmm..

In meinem Source wird die 'Printers' nur für den Printerport verwendet.

Oh, das schliesst eine Fehlerquelle aus, die bei uns im Verdacht war. Den exakten Ursprung der Probleme mit den Druckerqueues konnten wir damals nicht weiter eingrenzen, dazu trat der Fehler zu sporadisch auf, und es gibt kaum Möglichkeiten einen Fehler in einer hängengebliebenen Druckerqueue zu debuggen. Vielleicht wagen wir einen weiteren Test, Danke für den Quelltext!

(Was im Zusammenhang mit Druckerqueues sehr praktisch wäre: eine Windows API-Möglichkeit, die Druckdaten vor dem Löschen der Queue in Dateien zu speichern, um den Druck zu wiederholen. Oder eine Art Callback nach dem Druck, so dass man alle Daten temporär in einer Datei bereithält, die nach dem Druck gelöscht wird)

[HolgerX]

Hmm..

Für den Print Spooler gibt es APIs..
Was damit möglich ist, kann ich nicht sagen, musste mich damit noch nicht auseinander setzen..

Ich weiß nur so viel, dass die Einträge zu einem Drucker ausgelesen werden können, ob damit auch ein Zugriff auf die Daten möglich ist.. ?!?!

Aber bevor wir damit weiter machen:
-> Zurück zum Thead...

(Drucker und Spooler besser neuer Thread)

[Graw]

Hi,

habe es nun mit Fast Report gelöst.
Gefällt mir super!!!

Danke für alle Antworten.

[rokli]

Hallo Graw,

kannst Du das bitte kurz beschreiben, wie Du das via FR gemacht hast? Danke.