[Net::LPR] Papierschacht auswählen (gelöst) (Fragen zu Perl-Modulen)

[thread]19241[/thread]

[Net::LPR] Papierschacht auswählen [gelöst]

Tags: PDF print LPR Net::LPR Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+17 replies
dominicn

2014-08-14 18:54
User since
2003-08-08
327 Artikel
BenutzerIn
Hallo,

ich kämpfe gerade mit dem automatischen Druck verschiedener Dokumente aus einer Perl-Anwendung heraus. Das Skript soll auf Ubuntu Desktop 14 laufen, der Drucker ist ein Brother-Netzwerkdrucker (HL-4150CDN, Farblaser mit Duplexdruck).

Nach langen Versuchen mit den Kommandozeilentools lpr und lp wollte ich es nochmal mit Perl-Mitteln probieren, hier mit Net::LPR.

Folgendes Skript funktioniert auch:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

#!perl use strict; use warnings; use Net::LPR; use File::Slurp; my $or_printer = Net::LPR->new( StrictRFCPorts => 1, RemoteServer => '192.168.148.32', RemotePort => 515, PrintErrors => 1, RaiseErrors => 1, ); $or_printer->connect(); my $s_pdf_content = read_file('beispiel.pdf'); my $jobkey = $or_printer->new_job(); $or_printer->send_jobs('lp'); $or_printer->job_mode_text($jobkey); $or_printer->job_send_control_file($jobkey); $or_printer->job_send_data($jobkey, $s_pdf_content, length($s_pdf_content)); $or_printer->disconnect();
Das Dokument wird tatsächlich gedruckt, auch in Farbe funktioniert es. Aber (wie) kann ich weitere Optionen an den Drucker senden? Ich möchte ein Papierfach auswählen können und sagen können, ob doppel- oder einseitig gedruckt werden soll.

In der Dokumentation des Moduls fand ich leider nichts dazu. Das Modul ist auch sehr alt (letzte Version vor zehn Jahren erschienen), weshalb es fraglich ist, ob der Autor mir da noch helfen kann.

Es würde mich freuen, wenn mir jemand bei diesem sehr speziellen Thema weiterhelfen könnte!

Danke
Dominic
- GwenDragon
  
  2014-08-14 19:15
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Wahrscheinlich müsste vor dem Senden der Druckdaten zuerst der Umschaltbefehl als PCL oder PJL-Sequenz gesendet werden.
  
  Das Modul nutzt den alten RFC 1179-Standard für LPR, der sieht keine AUswahl des Tray vor.
  
  Angeblich gibt es bei lpr (wenn CUPS installiert), die Möglichkeit Optionen zu senden.
  http://www.cups.org/documentation.php/options.html...
  Last edited: 2014-08-14 19:30:40 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- rosti
  
  2014-08-14 19:35
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  PCL::Simple
  
  Option: Media Source könnte der Papierschacht sein. Mit PCL::Simple kannst Du auch übers Netz drucken, d.h., Du machst einfach ein Socket auf Port 9100 auf und schickst die Druckdatei dahin.
  
  modedit Editiert von GwenDragon: Link zu Modul korrigiert
  Last edited: 2014-08-14 19:44:46 +0200 (CEST)
  - +4 replies
  - GwenDragon
    
    2014-08-14 19:49
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Port 9100 ist AppSocket (raw data!) und das wird imho nicht gespoolt.
    Nachteilig im Bürobetrieb.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - rosti
      
      2014-08-14 19:53
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      2014-08-14T17:49:41 GwenDragon
      Port 9100 ist AppSocket (raw data!) und das wird imho nicht gespoolt.
      Nachteilig im Bürobetrieb.
      
      Egal ;)
      
      Also ich habe mal in das Modul PCL::Simple geschaut, wie die PCL-Sequenz für den Papierschacht auszusehen hat, das würde ich einfach mal ausprobieren.
      
      --Rosti
      - +2 replies
      - GwenDragon
        
        2014-08-14 19:59
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        2014-08-14T17:53:35 rosti
        Also ich habe mal in das Modul PCL::Simple geschaut, wie die PCL-Sequenz für den Papierschacht auszusehen hat, das würde ich einfach mal ausprobieren.
        Da hatte wir beide die gleiche Idee, du hast ja das dazugehörige Modul gefunden. :)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        rosti
        
        2014-08-14 22:07
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        2014-08-14T17:59:32 GwenDragon
        2014-08-14T17:53:35 rosti
        Also ich habe mal in das Modul PCL::Simple geschaut, wie die PCL-Sequenz für den Papierschacht auszusehen hat, das würde ich einfach mal ausprobieren.
        Da hatte wir beide die gleiche Idee, du hast ja das dazugehörige Modul gefunden. :)
        
        Ja schön :)
        
        Ich hätts ja auch mal selbst testen können, aber heute bin ich ziemlich kaputt vom Schwimmtraining (und Radfahren auch noch...).
        
        Btw., dem Autor von PCL::Simple habe ich mal ne Mail geschrieben, weil ich das Modul einfach Klasse finde, er hat sich über meine Mail sehr gefreut, ist schon ein paar Jahre her, wo PCL::Simple für mich die einzige Möglichkeit bot aus einer VM heraus ab und zu mal was Drucken zu können.
        Hier ist die Story: http://rolfrost.de/pcl.html
        
        Gute Nacht und viele Grüße.
- +10 replies
- GwenDragon
  
  2014-08-14 19:54
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Zeile 24 deines Codes:
  Du könntest wie rosti in msg #176848 vorschlug, PCL nehmen,
  die Papierauswahl als PCL-Daten mit PCL_pre() generieren lassen wie in https://metacpan.org/pod/PCL::Simple#USAGE steht
  diese Daten in eine Variable speichern,
  an den Anfang von $s_pdf_content hängen, die Länge von der Daten korrigieren,
  und dann mit Net::LPRs job_send_data() senden.
  
  Dann wird's wenigstens gespoolt.
  Last edited: 2014-08-14 19:57:57 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - dominicn
    
    2014-08-14 20:51
    
    User since
    2003-08-08
    327 Artikel
    BenutzerIn
    
    Super, vielen Dank für eure schnellen Antworten. Ich werde das morgen im Büro mal ausprobieren. Jetzt könnte ichs zwar machen, sehe aber nicht, ob der Drucker es korrekt auswirft.
  - +8 replies
  - dominicn
    
    2014-08-15 07:53
    
    User since
    2003-08-08
    327 Artikel
    BenutzerIn
    
    So, ich habs jetzt ausprobieren können. Die Optionen werden über PCL::Simple super durchgereicht, also Schachtwahl und Duplexdruck waren problemlos zu übermitteln, hat geklappt.
    
    ABER: Wenn ich dem Drucker erst das Erzeugnis von PCL_pre übermittle und dann die PDF-Datei, wird diese als Text (also der Quellcode der PDF-Datei) verteilt über viele Seiten ausgedruckt. Da bin ich jetzt noch am Suchen, ob ich PDF irgendwie in PCL übersetzen muss. Vielleicht gibts ja auch einen PCL-Befehl, der sagt, dass jetzt PDF folgt. Denn der Drucker kann ja offensichtlich PDF direkt drucken.
    - +2 replies
    - rosti
      
      2014-08-15 09:03
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Das habe ich befürchtet :)
      
      Verzichte mal auf das Modul PCL::Simple und sende nur die Escape-Sequenz
      
      Code: (dl )
      
      "\e&1" . $traynr . "H"
      
      wobei $traynr die Nummer für den Papierschacht ist. Oder mit sprintf formatieren:
      
      Code (perl): (dl )
      
      sprintf "\e&1%uH", $papierfachnummer;
      
      und diese Sequenz vor der PDF in das Socket geben. Sollte funktionieren.
      Last edited: 2014-08-15 09:05:59 +0200 (CEST)
      - dominicn
        
        2014-08-15 09:33
        
        User since
        2003-08-08
        327 Artikel
        BenutzerIn
        
        Leider kommt dann wieder nur der PDF-Quelltext aus dem Drucker.
        
        Ich hatte probiert, das Ghostscript-Skript pdf2ps in pdf2pcl umzubauen. Das ist schnell erledigt und die Datei auch druckbar. Aber wenn ich die Steuerzeichen dort am Anfang zu ersetzen versuche, klappt es auch nicht. Außerdem sind die Farben deutlich anders als bei direkten PDF-Druck.
        
        Eventuell kann man Ghostscript auch beibringen, diese Schachtwahl- und Duplexbefehle mit einzubauen. Wenn die Farben dann noch stimmen würden, wäre das ja eine mögliche Lösung.
        
        Wenn das mit der Schachtwahl nicht klappt, stell ich mir notfalls zwei Drucker hin. Aber Duplexdruck kriege ich damit ja leider auch nicht gelöst ...
    - +5 replies
    - GwenDragon
      
      2014-08-15 10:17
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Dass der Drucker gleich Postscript druckt, hast du nicht erwähnt.
      Dann muss eben keine PCL gesandt werden sondern Postcriptcode für die Wahl der Papierzuführung.
      
      Irgendwie was sollte doch in der PPD zum Drucker stehen.
      Aber ich habe schon lange kein Postscript und PPD-Dateien mehr programmiert.
      
      Vielleicht sowas für Tray 1:
      
      Code: (dl )
      
      <</ManualFeed false /MediaPosition 1>> setpagedevice
      
      Für Tray 2:
      
      Code: (dl )
      
      <</ManualFeed false /MediaPosition 2>> setpagedevice
      
      Last edited: 2014-08-15 10:20:28 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - dominicn
        
        2014-08-15 12:21
        
        User since
        2003-08-08
        327 Artikel
        BenutzerIn
        
        Der Drucker kann laut Hersteller: PCL 6 und PostScript 3 Emulation
        
        Ich habe inzwischen probiert, erst Postscript-Kommandos und anschließend die mit pdf2ps gewandelte PostScript-Datei zu senden. Wenn ich als Vorabkommando schreibe << /Duplex true >> setpagedevice, dann wird der Ausdruck tatsächlich doppelseitig ausgeführt.
        
        Den richtigen Befehl für die Auswahl des Papierfachs fand ich leider noch nicht, da muss ich noch weiter forschen.
        
        +3 replies
        
        GwenDragon
        
        2014-08-15 13:04
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ich habe nur die PPD für HL-4050CDN BR-Script3 gefunden.
        
        Ungetestet:
        Auto Select
        
        Code: (dl )
        
        <</ManualFeed false /BRTraysw true >> setpagedevice
        
        Tray1
        
        Code: (dl )
        
        <</ManualFeed false /BRTraysw false /BRFeeder 0>> setpagedevice
        
        Tray2
        
        Code: (dl )
        
        <</ManualFeed false /BRTraysw false /BRFeeder 1>> setpagedevice
        
        MP Tray
        
        Code: (dl )
        
        <</ManualFeed false /BRTraysw false /BRFeeder 4>> setpagedevice
        
        HL-4050CDN.ppd: more (38.3kb)
        Last edited: 2014-08-15 13:05:53 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        dominicn
        
        2014-08-15 15:37
        
        User since
        2003-08-08
        327 Artikel
        BenutzerIn
        
        Hi GwenDragon, das funktioniert super! Jetzt muss ich mich nur noch mit der Farbigkeit beschäftigen, aber das kriege ich irgendwie auch noch gelöst.
        
        Vielen Dank für deine schnelle und unermüdliche Hilfe!
        
        GwenDragon
        
        2014-08-15 15:58
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Schön, dass einiges jetzt klappt. :)
        Papierfach und dopplelseitig klappt jetzt. Dann ist deine anfängliche Frage am Anfang des Threads doch gelöst, oder?
        
        Ansonsten zum weiteren ... Da musst du wohl oder übel die PPD-Datei durchsehen, welches Postscript passen könnte. Ich kenne den Drucker und dessen Postscript-Treiber nicht.
        Last edited: 2014-08-15 16:00:13 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-08-14 18:54.