Announcement

Collapse
No announcement yet.

QR einen Drucker zuordnen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • QR einen Drucker zuordnen

    Ich habe mehrere Drucker angeschlossen (LPT1, LPT2 und Netzwerkdrucker). Jetzt soll bestimmten Listen jeweils ein Drucker zugewiesen werden (dem einen der Nadeldr., dem anderen der Laser ... Wie werden die Drucker korrekt und wirksam zugewiesen. Ich erhalte oft (nicht immer) Zugriffsfehler auf WIN-Ebene! Folgendermaßen habe ich zugewiesen:

    QRRechnung.PrinterSettings.PrinterIndex:=druckerin dex;
    TQRPrinter.Create.PrinterIndex:=QRRechnung.Printer Settings.PrinterIndex;
    TQRPrinter.Create.PrinterIndex:=druckerindex;
    QRRechnung.Page.PaperSize:=TQRPrinter.Create.Paper size;
    QRRechnung.Page.Length:=TQRPrinter.Create.Paperlen gth/10;
    QRRechnung.Page.Orientation:=TQRPrinter.Create.Ori entation;
    QRRechnung.PrinterSettings.outputbin:=TQRPrinter.C reate.OutputBin;
    QRRechnung.PrinterSettings.PaperSize:=TQRPrinter.C reate.Papersize;
    QRRechnung.PrinterSettings.Orientation:=TQRPrinter .Create.Orientation;
    QRRechnung.PrinterSettings.outputbin:=TQRPrinter.C reate.OutputBin;
    QRRechnung.PrinterSettings.Copies:=anz_kop;
    TQRPrinter.Create.free;

    Den Index des Druckers halte ich Programmseitig für den jeweiligen Arbeitsplatz in der Datenbank. Der Bereicht heißt QRRechnung!

    Vielen Dank für die Hilfe.
    mfg
    Christoph

  • #2
    Hallo,<br><br>
    ich denke das Problerm liegt an den mehrfachen TQRPrinter.Create. Funktioniert es evtl. so:<br>
    <pre>
    var
    druckerindex : integer;
    anz_kop : integer;
    begin
    with form1 do begin
    with TQRPrinter.Create do begin
    QRRechnung.PrinterSettings.PrinterIndex:=druckerin dex;
    PrinterIndex:=druckerindex;
    QRRechnung.Page.PaperSize:= Papersize;
    QRRechnung.Page.Length:= Paperlength/10;
    QRRechnung.Page.Orientation:= Orientation;
    QRRechnung.PrinterSettings.outputbin:= OutputBin;
    QRRechnung.PrinterSettings.PaperSize:= Papersize;
    QRRechnung.PrinterSettings.Orientation:= Orientation;
    QRRechnung.PrinterSettings.outputbin:= OutputBin;
    QRRechnung.PrinterSettings.Copies:=anz_kop;
    Free;
    end;
    end;
    </pre>
    Gruss<br>
    Olav Merkl

    Comment


    • #3
      Danke für den Tip. Es funktioniert an sich ganz gut nur ... Bei WIN95 und WIN98se auf Rechnern mit 64 MB RAM bricht der Druck dann oft (nicht immer wiederholbar) nach 30-50 Seiten ab, wobei ein einzelner Bericht zwischen 1 und 3 Seiten hat. Nach Abarbeitung eines Berichtes wird dann jeweils der QR von der Hauptverarbeitung wieder neu aufgerufen. NAch einiger Zeit erscheint dann ein Fehler, daß der Drucker nicht zugeordnet werden kann und das Programm kann nur noch mit dem Taskmanager hart beendet werden. Das Problem tritt z.B. auf einem Rechnuner mit WIN NT 4.0 nicht auf??? Wo kann das Schwein begraben liegen?
      Ich bin an sich der Meinung, daß die Druckerzuordnung stimmt aber was passiert hier?
      Vielen Dank für die Hilfe
      Christop

      Comment


      • #4
        Versuch mal einen anderen Druckertreiber. z.B. den Standard HP Laserjet III-Treiber von Windows für Laser - bzw. entsprechende Treibe

        Comment

        Working...
        X