Skip to main content

PC_PRINTER_DEFAULT_PROPERTIES

  • January 21, 2014
  • 8 replies
  • 0 views
D

Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
Look at the portion of the code:

                length of move-Default Properties
                                                                      to pr-len
                256 moves to pre-papersize
                add p-paper-size to Default-Properties-Flags
                moves ws-time-of-form-pr-int to PaperLength
                p-paper-length add-to-Default Properties Flags
                ws-wide move-the-form-pr-int to paperWidth
                p-paper-width to add Default-Properties-Flags
                1 moves to pre-orientation
                p-orientarion add to Default-Properties-Flags

When you print, the height is correct but the printing is truncated in width.

graciously

Rogerio Barbosa

    8 replies

    Chris Glazier
    Forum|alt.badge.img+3

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    The code snippet that you provided is not valid COBOL code.

    It is impossible to tell what values the program is actually using without posting the data area and values that are being used, i.e. move-the-form-pr-int, etc.

    Can you please post an entire snippet that also includes the data items and code that actually prints the line?

    Thanks.

    D

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    Sory, the correct code is:

          78  p-paper-size                                    value    1.

          78  p-paper-length                                  value    2.

          78  p-paper-width                                   value    4.

          78  p-scale                                         value    8.

          78  p-copies                                        value   16.

          78  p-paper-tray                                    value   32.

          78  p-print-quality                                 value   64.

          78  p-color                                         value  128.

          78  p-duplex                                        value  256.

          78  p-orientarion                                   value  512.

          78  p-yresolution                                   value 1024.

          01  Default-Properties-Flags    pic x(04) comp-5.

          01  Default-Properties.

              05  pr-len                  pic  x(2) comp-5.

              05  pr-papersize            pic s9(4) comp-5.

              05  pr-paperlength          pic s9(4) comp-5.

              05  pr-paperwidth           pic s9(4) comp-5.

              05  pr-scale                pic s9(4) comp-5.

              05  pr-copies               pic s9(4) comp-5.

              05  pr-papertray            pic s9(4) comp-5.

              05  pr-printquality         pic s9(4) comp-5.

              05  pr-color                pic s9(4) comp-5.

              05  pr-duplex               pic s9(4) comp-5.

              05  pr-orientation          pic s9(4) comp-5.

              05  pr-resolution           pic s9(4) comp-5.

    procedure .

    .

    .

    .

                  initialize  Default-Properties

                              Default-Properties-Flags

                  move  length of Default-Properties          to pr-len

                  move  256                                                     to pr-papersize

                  add     p-paper-size                                     to Default-Properties-Flags

                  move  2800                                                  to pr-paperlength

                  add   p-paper-length                                  to Default-Properties-Flags

                  move  3750                                                 to pr-paperwidth

                  add   p-paper-width                                  to Default-Properties-Flags

                  move  1                                                       to pr-orientation

                  add   p-orientarion                                    to Default-Properties-Flags

              call "PC_PRINTER_DEFAULT_PROPERTIES"

                       using by value     Default-Properties-Flags

                             by reference Default-Properties

                             returning    status-code

              end-call

              if  status-Code not = 0

                  move "Erro setando propriedades da impressora."

                                           to ws-mensagem

                  invoke-message-box aviso ws-mensagem sys-null

                  stop run

              end-if

    The height is correct, but not the width. Printing is truncated.

    graciously

    Rogerio Barbosa

    Chris Glazier
    Forum|alt.badge.img+3

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    It looks like you are setting the paper size to a length of 280 mm or 11 1/32 inches and a width of 375 mm or 14 49/64 inches.

    Is this the correct size that you are trying to print to?

    I do not have a printer here that can print a page of that size but when I reduced the width to 1000 or 100 mm it seemed to print at the correct size for the width which is about 4 inches and when I used different values for the width they all seemed to print correctly.

    What is the actual width of the line which is being printed on your system when setting it to 3750?

    Can you try a test to lower this value and see if the new value actually changes the width of the printed line?

    How are you actually sending the output to the printer?

    I tested this using PC_PRINT_FILE.

    D

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    I am using co NetExpress 3.1.

    The printer is a DFX-8000 Matrix

    I'm using Continuous form width (height 280 mm width 375 mm)

    My report has 132 positions and am using the Draft font 10cpi

    I'm using PC_PRINT_FILE. The height is correct but the print will truncate the width

    graciously

    Rogerio Barbosa

    Chris Glazier
    Forum|alt.badge.img+3

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    If you lower the width value to 1000 does it further limit the width of the report?

    What is the size of the width that this is actually being truncated to?

    Unfortunately I do not have a printer here that I can test this size with...

    D

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    Dear Chris,

    The problem was the same width of the form. On the box said 280x375 mm when it is actually 279.4 X364 which is the true form of floor area.

    Thanks for your attention

    Rogerio Barbosa

    D

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    Dear Chris,

    The problem was the same width of the form. On the box said 280x375 mm when it is actually 279.4 X364 which is the true form of floor area.

    Thanks for your attention

    Rogerio Barbosa

    D

    Does anybody know if there is som bug in the CBL_PRINTER_DEFAULT_PROPERIES NetExpress 3.11.
    Look at the portion of the code:

                    length of move-Default Properties
                                                                          to pr-len
                    256 moves to pre-papersize
                    add p-paper-size to Default-Properties-Flags
                    moves ws-time-of-form-pr-int to PaperLength
                    p-paper-length add-to-Default Properties Flags
                    ws-wide move-the-form-pr-int to paperWidth
                    p-paper-width to add Default-Properties-Flags
                    1 moves to pre-orientation
                    p-orientarion add to Default-Properties-Flags

    When you print, the height is correct but the printing is truncated in width.

    graciously

    Rogerio Barbosa

    Dear Chris,

    The problem was the same width of the form. On the box said 280x375 mm when it is actually 279.4 X364 which is the true form of floor area.

    Thanks for your attention

    Rogerio Barbosa

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement