this is afpds using Helvetica - all just DDS - CRTPRTF FILE(NO078W2P)
DEVTYPE(*AFPDS) PAGESIZE(88 80) LPI(8) OVRFLW(73)
(note - can pass position values as variables from the program if needed or
use line spacing
not familiar with Ghostscript ...
A R CCFORM2 BOX(6.94 2.43 9.49 7.99 *NARROW)
A FONT(2304 (*POINTSIZE 7))
A R CCFORM2A FONT(2304 (*POINTSIZE 6.1))
A @CCTITLE 200 POSITION( 7.10 3.20)
A FONT(2305 (*POINTSIZE 8.0))
A @CCTYPE 200 POSITION( 7.25 2.52)
A FONT(2305 (*POINTSIZE 7.5))
A @CCNBR 200 POSITION( 7.40 2.52)
A FONT(2305 (*POINTSIZE 7.5))
A @CCNAME 30 POSITION( 7.60 2.52)
A FONT(2305 (*POINTSIZE 7.5))
A @CCNMLINE 200 POSITION( 7.60 3.80)
A FONT(2305 (*POINTSIZE 7.5))
A @CCBILLADR 30 POSITION( 7.75 2.52)
A FONT(2305 (*POINTSIZE 7.5))
A @CCBALINE1 200 POSITION( 7.75 3.80)
A FONT(2305 (*POINTSIZE 7.5))
A @CCBALINE2 200 POSITION( 7.90 3.80)
A FONT(2305 (*POINTSIZE 7.5))
A @CCAMOUNT 200 POSITION( 8.05 2.52)
A FONT(2305 (*POINTSIZE 7.5))
A @CCREFUND 30 POSITION( 8.20 4.60)
A FONT(2305 (*POINTSIZE 7.5))
A @CCREFPOL1 200 POSITION( 8.31 2.52)
A @CCREFPOL2 200 POSITION( 8.42 2.52)
A @CCREFPOL3 200 POSITION( 8.53 2.52)
A @CCREFPOL4 200 POSITION( 8.64 2.52)
A @CCACCEPT 30 POSITION( 8.75 4.60)
A FONT(2305 (*POINTSIZE 7.5))
A @CCACCEPT1 200 POSITION( 8.85 2.52)
A @CCACCEPT2 200 POSITION( 8.96 2.52)
A @CCACKNOW1 200 POSITION( 9.11 2.52)
A @CCACKNOW2 200 POSITION( 9.22 2.52)
A @CCSIGN 200 POSITION( 9.40 2.52)
A FONT(2305 (*POINTSIZE 7.5))
A R $TOP SKIPB(1) FONT(2304 (*POINTSIZE 9))
A @TOPXX 5 8
A R COVER01 SKIPB(21) FONT(2304 (*POINTSIZE 10))
A @COVFROM 5 8
A @IFROM 100 15SPACEA(1)
A @COVTO 5 8
A @ITO 100 15SPACEA(1)
A @COVREF 5 8
A @IREF 100 15SPACEA(3)
i use code like this to test different fonts - mostly Helvetica, Times
Roman, Courier and a few others, plux lines and boxes
FONT(2304 (*POINTSIZE 7))
'Font 2304 HELVETICA 7 point normal'
FONT(2304 (*POINTSIZE 8))
'Font 2304 HELVETICA 8 point normal'
FONT(2305 (*POINTSIZE 7))
'2305 HELVETICA 7 point bold'
FONT(2305 (*POINTSIZE 8))
'2304 HELVETICA 8 pt bold'
A R $PRT15G FONT(2308 (*POINTSIZE 11))
A 1'2308 TIMES ROMAN 11 ABCDEFGHIJK'
A SPACEA(1)
A R $PRT15H FONT(2309 (*POINTSIZE 11))
A 1'2309 TIMES NEW ROMAN 11 Bold
ABCDEFG'
A SPACEA(1)
A R $PRT15I FONT(335 (*POINTSIZE 11))
A 1'335 BOOKMASTER 11 ABCDEFGHIJK'
A SPACEA(1)
A R $PRT15J FONT(336 (*POINTSIZE 11))
A 1'336 BOOKMASTER 11 Bold ABCDEFG'
A SPACEA(1)
Font(11) Font(223) courier or some fixed space
Jim
On Fri, Jul 18, 2025 at 9:41 PM Patrik Schindler <poc@xxxxxxxxxx> wrote:
Hello Jim,
Am 19.07.2025 um 02:47 schrieb Jim Franz <franz9000@xxxxxxxxx>:
The previous post may be all you need, but a note that many use AFPDS
printer files printing on lasers that have no IPDS card.
Yes, this is — as you've marked clearly — enabled through transform(*yes).
What I have tested is that HPT limits the available fonts to Courier and
something else monospaced. At least bold print is also available. Sending
IPDS data to a "real" IPDS printer yields much more available font choices.
(I've grabbed an old S-P-E EBox IPDS adapter quite a while ago. An
external box, connected to network and printer. IPDS jobs over TCP come in,
and a connected printer — via parallel port — gets the translated data.)
Sadly, AFPDS/IPDS is too much of a niche for people to create yet another
GhostScript incarnation for converting AFPDS/IPDS data to everything else
the base code of GhostScript supports.
:wq! PoC
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
midrange.com
