View Full Version : 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
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
//=======================
// 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?topic=80-afprsc-afp-resource-keyword-in-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.
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
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
A R BILD1
A AFPRSC('TestOverlay.pdf' +
A *PDFSPO 1.1 1 (*MAPOPT *P) +
A (*PATH '/home/MS'))
RPGLE
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
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
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
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
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.
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)
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
und hab keine Erfahrung mit ACS
Gruss