Talk About Network

Google


Register and Login
Nick
Password
Register create new account Sign up is FREE and you can post replies, new topics, bookmark posts and more!
Recover lost password


Programming > Cobol > Re: Printing fr...
Latest [ Topics | Posts ] Archive Post A New Topic Post a Reply
<< Topic < Post Post 6 of 7 Topic 4075 of 4196
Post > Topic >>

Re: Printing from M/F COBOL

by razor <iruddock@[EMAIL PROTECTED] > Apr 24, 2008 at 08:50 AM

Thanks for your suggestions.

I decided to stick with the PC_PRINTER routines. I have a few o/s
problems though that I hope maybe somebody has already had to resolve
in the past.

Problem one is where I print invoices or other re****ts. At the start
we have some control characters to set the font, orientation, pitch,
etc. Something like this.

01  LANDSCAPE.
    03 FILLER                 PIC 9(2) COMP VALUE 27.
    03 FILLER                 PIC X(16) VALUE
              "&l1o8d0l66p0e66F".

Using the PC_PRINT routines I can't do this obviously, especially not
if its going to a non-PCL printer. The PC_PRINT routines don't allow
me to print control characters (rightly so). I think I can resolve
this using the PC_PRINTER_SET_FONT call so thats ok. I may just
generate one print program that interprets these settings from the
existing printed re****ts and converts the to SET_FONT calls.


Problem two is that I want to print 'boxes' using line drawing
characters. I can't seem to get this working. I have experimented
using the PC_PRINTER_OPEN call by setting the 'flags' to
'11' (Normally set to '1' which just allows selection of a printer)
which brings up a printer font window that allows me to select
different fonts. But none of these allows me to print 'lines'. I
suspect I am barking up the wrong tree doing it this way so any help
will be appreciated.

Problem three is that sometimes in mid line I want to print some
characters in bold. The way I do this at the moment is by inserting
the PCL control characters at the right point in the print line. For
examplke:

   03  FILLER          PIC X(15) VALUE "NORMAL TEXT".
   03  FILLER          PIC 99 COMP VALUE 27.
   03  FILLER          PIC X(4) VALUE "(s4B".
   03  FILLER          PIC X(15) VALUE "BOLD TEXT".
   03  FILLER          PIC 99 COMP VALUE 27.
   03  FILLER          PIC X(4) VALUE "(s0B".
   03  FILLER          PIC X(15) VALUE "NORMAL TEXT".

Long winded maybe, but its been around 15 years, running on DOS vers
3, now on XP with a ScreenIO based interface. Looks wonderful.

Any ideas on how I can resolve this one?

Many thanks
 




 7 Posts in Topic:
Printing from M/F COBOL
razor <iruddock@[EMAIL  2008-03-31 09:23:48 
Re: Printing from M/F COBOL
pcsjih@[EMAIL PROTECTED]   2008-03-31 10:30:19 
Re: Printing from M/F COBOL
Richard <riplin@[EMAIL  2008-03-31 11:53:44 
Re: Printing from M/F COBOL
Thane <thaneh@[EMAIL P  2008-04-03 20:02:04 
Re: Printing from M/F COBOL
Alain Reymond <arwebma  2008-04-07 11:50:49 
Re: Printing from M/F COBOL
razor <iruddock@[EMAIL  2008-04-24 08:50:48 
Re: Printing from M/F COBOL
"James J. Gavan"  2008-04-24 23:21:40 

Post A Reply:
  Go here to Signup

AddThis Feed Button


About - Advertising - Contact - Frequently Asked Questions - Privacy Policy - Terms of Use - Signup

Contact
tan12V112 Sat Jul 26 3:33:10 CDT 2008.