[NEWSboard IBMi Forum]
Seite 1 von 2 1 2 Letzte
  1. #1
    Registriert seit
    Jun 2013
    Beiträge
    69

    PRTF Overlay mit AFPRSC

    Moin Zusammen,

    ich habe bei einer PRTF schon ein Bild mit dem Schlüsselwort AFPRSC hinzugefügt.

    Nun versuche ich grade mit dem AFPRSC ein A4 PDF als "Briefpapier" zu jeder Seite hinzuzufügen
    Leider sieht man von dem PDF nichts.

    Hier wie ich das jetzt versucht habe
    Code:
    A*****************************************************************  
    A* OVERLAY  -                                                       
    A*****************************************************************  
    A          R OVERLAY01                                              
    A                                      AFPRSC(&OVLFILE *PDFSPOTR +  
    A                                             &OVLDOWN &OVLACROSS + 
    A                                             (*PATH &OVLPATH))     
    A            OVLDOWN        5S 3P                                   
    A            OVLACROSS      5S 3P                                   
    A            OVLFILE      125A  P                                   
    A            OVLPATH      640A  P
    Code:
           //=======================
           // Overlay
           //=======================
    
    
           Dcl-Proc OVL01;
    
    
               ovlDown   = 0;
               ovlAcross = 0;
    
    
               ovlFile   = 'Deckblatt.pdf';
               ovlPath   = '/home/MS';
               write OVERLAY01;
    
    
           End-Proc;
    Oder habe ich hier die Funktion von AFPRSC nicht richtig verstanden
    https://www.ibm.com/docs/en/i/7.3?to...-printer-files

    Alternativ hatte ich auch mal über FRONTOVL nachgedacht aber das erstellen von den OVL ist finde ich etwas nervig und bis jetzt hatte ich da noch nichts mit Farbe hinbekommen.

    Vielen Dank schon mal.

  2. #2
    Registriert seit
    Jun 2019
    Beiträge
    26
    Hallo

    so gehts bei mir:

    clsrc:

    call testbil03
    ----

    rpglesrc testbil03:


    H DECEDIT('0,') DATEDIT(*DMY.) datfmt(*eur)
    H fixnbr(*zoned:*inputpacked)
    *

    FTESTbil3 o e PRINTER
    write bild3 ;

    *inlr = *on ;
    return ;
    -----


    ddssrc:

    A* DRUCKERDATEI FÜR testbil03 pdf
    A*
    A R BILD3 AFPRSC('extrait.pdf' +
    A *PDFSPO 1.1 1 (*MAPOPT *P) +
    A (*PATH '/i5/jt'))
    A
    -----

    printerfile :
    A*%% CHGPRTF FILE(TESTBIL3)
    A*%%** DEV(*job)
    A*%%** cpi(15)
    A*%%** lpi(6)
    A*%%** DEVTYPE(*AFPDS)
    A*%%** PAGESIZE(70 130 *ROWCOL)
    A*%%** OVRFLW(70)
    A*%%** PAGRTT(0)
    A*%%** FORMTYPE(0001)
    A*%%** SAVE(*YES)
    A*%%** COPIES(1)
    A*%%** CHRID(*JOBCCSID)



    oder andere Beispiele :

    A*
    A R BILD1 AFPRSC('Acc_007.jpg' +
    A *JFIF 2 1 (*PATH '/i5/jt') +
    A (*SIZE 1.5 1.5) (*MAPOPT *SL))

    A R BILD2 AFPRSC('Acc_001.jpg' +
    A *JFIF 4 1 (*PATH '/i5/jt') +
    A (*SIZE 1.5 1.5) (*MAPOPT *SL))

    A R BILD3 AFPRSC('Acc_002.jpg' +
    *JFIF 4 1 (*PATH '/i5/jt') +
    A (*SIZE 1.5 1.5) (*MAPOPT *SL))

    A R BILD4 AFPRSC('INTRA.PDF' +
    A *PDFSPO 1.2 4.6 (*MAPOPT *P) +
    A (*PATH '/i5/jt'))
    A



    -----

    geht alles

    und das tolle ! SOGAR IN FARBE (in pdf sowieso, aber AUCH AUF FARBFÄHIGEM Drucker!! (das wollte ich übrigens schon lange ins Forum setzen, bin nur noch nicht dazu gekommen!)

    Gruss
    Jotho

  3. #3
    Registriert seit
    Jun 2013
    Beiträge
    69
    Hallo Jotho,

    danke für die ausführliche Antwort.
    Und entschuldige bitte meine späte Antwort

    ich hab das jetzt mal Ausprobier aber bekomme leider nur eine Leere PDF raus benötige ich dazu noch irgend welche Lizenzprogramme ?

    Hier mein PRTF
    Code:
    A               R BILD1
    A                                           AFPRSC('TestOverlay.pdf' +
    A                                           *PDFSPO 1.1 1 (*MAPOPT *P) +
    A                                           (*PATH '/home/MS'))
    RPGLE
    Code:
         H DECEDIT('0,') DATEDIT(*DMY.) datfmt(*eur)
          H fixnbr(*zoned:*inputpacked)
     *
           Dcl-F PRINTTEST Printer;
    
    
           write BILD1;
           *inlr = *on ;
           return ;
    Befehl zum Ändern
    CHGPRTF FILE(MS/PRINTTEST)
    DEV(*JOB)
    DEVTYPE(*AFPDS)
    PAGESIZE(70 130 *ROWCOL)
    LPI(6)
    CPI(15)
    OVRFLW(70)
    CHRID(*JOBCCSID)
    PAGRTT(0)
    FORMTYPE(0001)
    COPIES(1)
    SAVE(*YES)

    Für das PDF habe ich einfach in Word eine Bild eingefügt und das dann als PDF gespeichert.
    Oder muss man hier auf irgendwas achten ?

    System ist v7R4

    Danke schon Mal

  4. #4
    Registriert seit
    Jun 2019
    Beiträge
    26
    Hallo Malte

    bitte prüfe noch in der Druckerbeschreibung (wrkdevd)
    bei (Host)Transform *YES natürlich:
    Hersteller, Typ und Modell . . . MFRTYPMDL *HP4000 und
    Systemdefin. Treiberprogramm . . SYSDRVPGM *IBMSNMPDRV

    oder auch
    Hersteller, Typ und Modell . . . MFRTYPMDL *HP5SI und
    Systemdefin. Treiberprogramm . . SYSDRVPGM *HPPJLDRV

    das sind Einstellungen, die bei mir funktionieren.

    Bei folgender Einstelllung zB efrhalte auch ich eine LEERE Seite

    Hersteller, Typ und Modell . . . MFRTYPMDL *RICOHAP3200

    Hoffe, das hilft !

    Gruss Jotho

  5. #5
    Registriert seit
    Jun 2013
    Beiträge
    69
    Hallo Jotho,

    ist die Druckereinstellung auch bei einem Virtuellem Drucker wichtig?
    Und Spiel der Drucker bei einer PDF-Ausgabe eine rolle?

    Und bei den Normalen Druckern kann ich doch nicht überall den Typ so abändern.
    Gibt es da eine Liste von kompatiblen Geräten?

    MfG
    Malte

  6. #6
    Registriert seit
    Jun 2019
    Beiträge
    26
    Hallo Malte

    bei PDF spielt das (wahrscheinlich) keine Rolle, mit
    virtuellen Druckern hab keine Erfahrung, da gibt es hier im Forum bestimmt
    jemand, der mehr dazu weiss.

    Geht es denn jetzt bei normalen Druckern? Du brauchst ja mal nur EINEN zum testen
    umzustellen, auf die Werte, die ich dir übermittelt habe!
    (und du hast ja nicht für jeden existierenden Drucker ein entsprechendes MFRTYPMDL,
    ich habe die obige Auswahl für viele verschiedene Modelle in Gebrauch)


    Gruss Josef

  7. #7
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Die PDF-Ausgabe hat mit einem Device nichts zu tun, da man als Anpassungsobjekt ja *PDF angibt.
    Kompatibel sind im Prinzip alle, die PCL4/5/6 unterstützen.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  8. #8
    Registriert seit
    Jun 2013
    Beiträge
    69
    Bei Erstellen des Drucker mit MFRTYPMDL(*HP5SI) und SYSDRVPGM(*HPPJLDRV) bekomme ich leider immer den Fehler

    "
    Druckerdatenstromumsetzung im Host ist für Einheitentyp ungültig."
    DEVD > PRTMST
    DEVCLS > *LAN
    TYPE > *IPDS
    MODEL > 0
    LANATTACH *IP

    Wenn das im PDF funktionieren müsste sollte das doch auch über den ACS Client umwandelbar sein oder nicht? Da bekomme ich nämlich leider nur eine leere Seite raus.

    Bei diesem Befehl ist die PDF leider trotzdem leer
    CPYSPLF FILE(PRINTTEST) TOFILE(*TOSTMF) SPLNBR(*LAST) TOSTMF('/home/ms/test.pdf') WSCST(*PDF)

  9. #9
    Registriert seit
    Jun 2019
    Beiträge
    26
    durcker Type 3812 model 1

    für PDF :

    einfach ins CL (oder PRC )einfügen vor call oder load
    OVRPRTF printtest devtype(*afpds) wscst(*pdf) tostmf('/home/ms/test.pdf')
    fertig
    nix CPYSPLF

  10. #10
    Registriert seit
    Jun 2019
    Beiträge
    26
    und hab keine Erfahrung mit ACS

    Gruss

  11. #11
    Registriert seit
    Jun 2009
    Beiträge
    316
    meine Antwort hier wieder gelöscht, da dies schon von JOTHO beantwortet war

  12. #12
    Registriert seit
    Jun 2013
    Beiträge
    69
    moin zusammen,

    ich habe das jetzt mal mit diesem CLLE getestet
    Code:
       PGM                                                                                                            
     OVRPRTF    FILE(PRINTTESTP) DEVTYPE(*AFPDS) +           
                    TOSTMF('/home/ms/test.pdf') WSCST(*PDF)  
                                                             
       CALL       PGM(PRINTTEST)                             
                                                             
       RCLRSC     LVL(*CALLER)                               
       RCLRSC     LVL(*)                                     
                                                             
       ENDPGM
    leider bekomme ich immer noch ein leeres PDF raus.

    Muss ich bei dem PDF was ich für das Overlay verwende beachten?

Similar Threads

  1. AFPRSC Grafik drucken
    By camouflage in forum NEWSboard Programmierung
    Antworten: 4
    Letzter Beitrag: 23-09-20, 16:35
  2. AFPRSC - ein Mysterium?
    By wti in forum IBM i Hauptforum
    Antworten: 7
    Letzter Beitrag: 13-05-20, 15:55
  3. Overlay / Subfile
    By alex61 in forum IBM i Hauptforum
    Antworten: 3
    Letzter Beitrag: 09-04-20, 18:20
  4. PRTF mit OVERLAY auf der Rückseite
    By dagmarlueschen in forum NEWSboard Programmierung
    Antworten: 5
    Letzter Beitrag: 26-07-16, 13:51
  5. Overlay
    By Jacko in forum IBM i Hauptforum
    Antworten: 7
    Letzter Beitrag: 10-02-06, 15:30

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •