Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 06 OCT 2006 02:35:42PM Steve Bell wrote:

Hi,

I need some easy down & dirty examples of how to create a VOC record where I can use PDISK to save a list statement report then print later after the printer is changed to landscape or whatever. Printer is going to time out and reseting before the list is done processing. Also having trouble with the PDISK syntext.

Please! 3rd grade examples

nothing too complexed.


At 06 OCT 2006 04:05PM Steve Smith wrote:

* from TCL, EDIT VOC MYREPORT

TCL

CW LPTR

PDISK C:\JUNK.TXT (O)

LIST 30 VOC (P)

PDISK PRN (OS)

* F9 to save, escape edit and from TCL enter the command

MYREPORT

The report is now available on disk in the file C:\JUNK.TXT, or you can then issue a command

SUSPEND COPY /B C:\JUNK.TXT LPT1


At 11 OCT 2006 05:35PM Steve Bell wrote:

This works except I'm tring to get it to print Landscape. No matter

if I run code to change the printer or goto Start-settings-Printer then right click the default printer and set it to Landscape, Apply, then OK, then go back to Arev prompt and copy the Dos c:\myreport.txt to LP1

it still prints Portrait.

I need some new tricks. Must be something I don't know.


At 11 OCT 2006 10:57PM Ray Chan wrote:

Steve:

I need some new tricks.

How about converting to OI?

Ray


At 11 OCT 2006 11:28PM [email protected]'s Don Bakke wrote:

Steve,

Does changing (P) to (PE) in the LIST command make a difference?

[email protected]

SRP Computer Solutions, Inc.


At 12 OCT 2006 01:44AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:

You'll need to prepend the print job file with the JCL or PCL to swap orientation. Every "new print job" resets the printer to defaults.

The Sprezzatura Group

World leaders in all things RevSoft


At 12 OCT 2006 10:16PM Richard Hunt wrote:

If you can, put the JCL or PCL control codes in the "HEADING" statement of the report. That way each page of the report will display using the printer control codes. I am sure you can control the font pitch this way… I am not sure if you can control the "landscaping" this way.

To avoid the printer resetting in the middle of a long and slow processing report, you can set the printer properties advanced tab to "start printing after last page is spooled".


At 13 OCT 2006 04:12AM Steve Smith wrote:

Ignore the fact that this may be misformatted…some codes here may assist in any case…


EXPENDABLE SUBROUTINE HP.COND

* set printer up for HP condensed mode - run from TCL ahead of report

DECLARE SUBROUTINE MSG
PRINTER ON

* the following are commented out, but are the individual HP codes
* go to hp.com for your printer codes / search for PCL escape codes

*RESET$=CHAR(27):"E"
*CONDENSED$=CHAR(27):CHAR(40):CHAR(115):CHAR(52):CHAR(83)
*LANDSCAPE$=CHAR(27):CHAR(38):CHAR(108):CHAR(49):CHAR(79)
*PORTRAIT$ =CHAR(27):CHAR(38):CHAR(108):CHAR(48):CHAR(79)
*A4$       =CHAR(27):CHAR(38):CHAR(108):CHAR(50):CHAR(54):CHAR(65)

RESET$=CHAR(27):"E"

CONDENSED$=CHAR(27):CHAR(40):CHAR(115):'16.5':CHAR(72)  
* CHAR(52):CHAR(83)
LANDSCAPE$=CHAR(27):CHAR(38):CHAR(108):CHAR(49):CHAR(79)
PORTRAIT$ =CHAR(27):CHAR(38):CHAR(108):CHAR(48):CHAR(79)
BOLD$     =CHAR(27):CHAR(40):CHAR(115):'3':CHAR(66)
TRAY1$    =CHAR(27):CHAR(38):CHAR(108):CHAR(1):CHAR(72)
A4$       =CHAR(27):CHAR(38):CHAR(108):CHAR(50):CHAR(54):CHAR(65)

*PRINT RESET$:A4$:BOLD$:LANDSCAPE$:CONDENSED$:TRAY1$:'testing only'


HP= \1B252D31323334355840504A4C20534554205041474550524F\
HP := \544543543D4F46460A40504A4C20534554205245534F4C5554494F4E3D\
HP := \3330300A40504A4C20454E544552204C414E47554147453D50434C0A0D\
HP := \1B451B2A74333030521B2675363030441B2A723046\
HP := \1B266C314F1B266C30481B266C32366138633145\
HP := \1B2A70307830591B2A633074383132397835373134591B266C3158\
HP := \1B2A62304D0D1B283139551B28733430393974306230733135683050\
HP := \1B2A703330581B2A70393459\

PRINT  HP

@LPTRHIGH=40
IF @TCL.STACK=HP.COND' THEN
  MSG("HP Laser Condensed Landscape",'','','')
END
PRINTER OFF

RETURN

View this thread on the forum...

  • third_party_content/community/commentary/forums_nonworks/d02ee685d87ddd94852571ff0066255f.txt
  • Last modified: 2024/01/04 21:00
  • by 127.0.0.1