HMGforum.com

Code: Select all

aLinesToPrint :=  {  'This is sample Line 1" ,;         // An array contains lines to print
                             'This is sample Line 2",;
                             'This is sample Line 3" }

         SET HPDFPAGE LINESPACING TO 10

         START HPDFPAGE 

              HPDFPRINT SetRowTo 10   // <= New command; Move write-cursor to row 10      ( Like SetPos() )
              HPDFPRINT SetColTo 10   // <= New command; Move write-cursor to col 10

              FOR nLineNo := 1 TO LEN( aLinesToPrint )
                      
                    HPDFPRINT PRINT_TEXT aLinesToPrint[ nLineNo ]  <...> // <= New command 
                                     // <...> : other PRINT options, is same as @ ... PRINT command

              NEXT nLineNo    

         END HPDFPAGE

/*

In this case this command not required; because SET HPDFPAGE LINESPACING TO works internally after each HPDFPRINT PRINT_TEXT 

                   HPDFPRINT MoveRowTo 10    // <= New command; Move write-cursor 10 mm down from current  row; 
                                                              //  also accept values less than 0 ( negative) for moving up

This command also meaniless for now

                   HPDFPRINT MoveColTo  10   // <= New command; Move write-cursor 10 mm right from current  col
                                                              //  also accept values less than 0 ( negative) for moving left     

*/

Code: Select all

         
aLinesToPrint :=  {  'This is sample Line 1" ,;         // An array contains lines to print
                             'This is sample Line 2",;
                             'This is sample Line 3" }

        START HPDFPAGE 

              nLineRow := 10

              FOR nLineNo := 1 TO LEN( aLinesToPrint )
                      
                    @  nLineRow, 20 HPDFPRINT aLinesToPrint[ nLineNo ]

                     nLineRow += 10
 
               NEXT nLineNo    

         END HPDFPAGE

Code: Select all

ShellExecute(0, "Printto", CHR( 34 ) + cPdfFileToPrint + CHR( 34 ), CHR( 34 ) + cPrinterName + CHR( 34 ), 0, 0)