1. Forum
  2. FidoNet
  3. PASCAL

  • Printer codes

    From Sean Dennis@1:18/200 to All on Thu Oct 6 22:34:09 2005
    Hello, All.

    I'm trying to find the Epson ESC printer codes (writing my own printer unit for
    a label program I'm writing). I haven't had much success finding this on the Web using Google-does anyone have a text file with this in it I could use?

    Later,
    Sean

    // outpostbbs@gmail.com * http://outpostbbs.net

    --- GoldED+/EMX 1.1.5-31012
    * Origin: Outpost BBS - Johnson City, TN - outpostbbs.darktech.org (1:18/200)
  • From Björn Felten@2:203/2 to Sean Dennis on Fri Oct 7 05:53:26 2005
    I'm trying to find the Epson ESC printer codes

    Have you looked in the \EXAMPLES\UTILS directory? In the file PRNFLTR.PAS I found the following constants, maybe it's enough for you?


    const

    { EPSON Printer code definition }

    EpsonItalic = #27'4';
    EpsonNoItalic = #27'5';
    EpsonBold = #27'E';
    EpsonNoBold = #27'F';
    EpsonULine = #27'-'#1;
    EpsonNoULine = #27'-'#0;

    EpsonCodeArray: array[0..7] of PChar = (
    EpsonBold,
    EpsonNoBold,
    EpsonItalic,
    EpsonNoItalic,
    EpsonULine,
    EpsonNoULine,
    EpsonBold + EpsonItalic,
    EpsonNoBold + EpsonNoItalic);

    EpsonCodes: TPrinterCodes = (
    PreambleCount: 0;
    Preamble: nil;
    CodeArray: @EpsonCodeArray;
    Attributes: (
    0, { Whitespace }
    2, { Comment }
    1, { Reserved word }
    0, { Identifier }
    0, { Symbol }
    4, { String }
    0, { Number }
    1); { Assembler }
    StartPage: '';
    EndPage: #12;
    EndLine: #13#10;
    Postamble: ''
    );

    ---
    * Origin: news://felten.yi.org (2:203/2)
  • From Sean Dennis@1:18/200 to Björn Felten on Fri Oct 7 01:01:10 2005
    Hello, Björn.

    Friday October 07 2005 04:53, you wrote to me:

    Have you looked in the \EXAMPLES\UTILS directory? In the file PRNFLTR.PAS I found the following constants, maybe it's enough for
    you?

    No, I didn't look, but thanks! I have the code for condensed (writeln(#27+#15+#15);) and that should do it. Thanks. I appreciate it.

    Later,
    Sean


    // outpostbbs@gmail.com * http://outpostbbs.net

    --- GoldED+/EMX 1.1.5-31012
    * Origin: Outpost BBS - Johnson City, TN - outpostbbs.darktech.org (1:18/200)
  • From Scott Adams@1:112/91 to Sean Dennis on Fri Oct 7 19:38:46 2005
    Quoting Sean Dennis to All <=-


    I'm trying to find the Epson ESC printer codes (writing my own printer unit for a label program I'm writing). I haven't had much success
    finding this on the Web using Google-does anyone have a text file with this in it I could use?

    Assume you looked in swag?

    I know theres some old BASic code out there that does
    label. i seem to have some on the bbs here. But
    I'm not sure if any specific pascal epson stuff.


    ... "What're you going to do," laughed the dragon, "arrest me for smoking?
    --- Fringe BBS
    * Origin: EWOG II - The Fringe - 904-733-1721 (1:112/91)
  • From Andrew O. Shadoura@2:450/143.25 to Scott Adams on Sun Oct 9 13:39:52 2005
    Hello Scott!

    Once 07.10.2005 18:38:46 Scott Adams wrote to Sean Dennis
    about "Re: Printer codes".

    I know theres some old BASic code out there that does label. i seem to have some on the bbs here. But I'm not sure if any specific pascal epson stuff.

    But is it any difference between BASIC and pascal code? EPSON escape sequences are _not_ language-specific ;) So, you can take them from any EPSON-compatible printer manual.

    -- WBR, Andrew O. Shadoura

    AKAs: 2:450/143.25, 2:450/202.25, 2:2437/70.25

    --- WP/95 Rel 1.78E (215.0) Reg.
    * Origin: Knowledge itself is a power (2:450/143.25)
  • From Scott Adams@1:112/91 to Andrew O. Shadoura on Thu Nov 10 19:39:23 2005
    Quoting Andrew O. Shadoura to Scott Adams <=-


    I know theres some old BASic code out there that does label. i seem to have some on the bbs here. But I'm not sure if any specific pascal epson stuff.

    But is it any difference between BASIC and pascal code? EPSON escape sequences are _not_ language-specific ;) So, you can take them from any EPSON-compatible printer manual.

    Haven't looked at the code in years. To be honest.

    I'm actually now moving to delphi more and more. I hate to move
    from dos since after 20 plus years I have my own nice toolkits
    for programming I've tweaked and developed on my own. now with
    delphi I'll have to start from scratch and build up. Which
    may take a couple years to get a good toolkit going.

    Cours ein Delphi you don't have to worry about printers so much :)


    ... And so it begins. You have forgotten something. - Kosh.
    --- Fringe BBS
    * Origin: EWOG II - The Fringe - 904-733-1721 (1:112/91)