ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

RPG report

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • RPG report

    Guess this maybe should be in the CL thread...oh well. I have a RPG report with a width of 80. I want it to print portrait but the printer is making it landscape and tiny print. I coded in the cl page rotation 90 and that made it big print but it is still landscape....how do I get it to print portrait? Any ideas?

  • #2
    Re: RPG report

    if its only 80 in width then the printer should auto rotate.

    else

    PHP Code:
    ~
    c                   eval      Cmdstring 'OVRPRTF FILE(CST30AP) DEVTYPE('
    c                             '*AFPDS) CPI(12) PAGRTT(90) OUTQ(RPRT2005)'   
    c                                 +  ' OVRFLW(45)'                          
     
    *                                                                          
    c                   eval      cmdlength = %len(%trim(cmdstring))            
    c                   call(e)   'QCMDEXC'                                     
    c                   parm                    cmdstring                       
    c                   parm                    cmdlength                       
     
    *                                                                          
    c                   if        not%open(CST30AP)                             
    c                   open      CST30AP                                       
    c                   
    endif 
    All my answers were extracted from the "Big Dummy's Guide to the As400"
    and I take no responsibility for any of them.

    www.code400.com

    Comment


    • #3
      Re: RPG report

      Check your printer settings also. Some printers have landscape forced.

      Comment

      Working...
      X