DO decl 
#DEFINE TRANSPARENT   1  
#DEFINE OPAQUE        2  

#DEFINE DT_LEFT       0  
#DEFINE DT_CENTER     1  
#DEFINE DT_TOP        0  
#DEFINE DT_RIGHT      2  
#DEFINE DT_WORDBREAK  16  

    LOCAL hWindow, hDC, lcRect, lcText 
    hWindow = GetActiveWindow() 
    hDC = GetWindowDC(hWindow)   
    lcText =  "The DrawText function draws formatted text "  +; 
         "in the specified rectangle. It formats the text "  +; 
         "according to the specified method (expanding tabs, "  +; 
         "justifying characters, breaking lines, and so forth)."  

    lcRect = n2dw( 100 ) + n2dw( 300 ) + n2dw( 400 ) + n2dw( 600 ) 
    = Rectangle(hdc, 100 - 1 , 300 - 1 , 400 + 1 , 600 + 1 )
    = DrawText (hDC, lcText, Len(lcText), @lcRect, DT_WORDBREAK) 
    = ReleaseDC(hWindow, hDC) 

a=GETPRINTER( )
IF !EMPTY(a)
  printerHDC=createdc('',a, 0 , 0 )
  lcDocInfo = Chr( 20 ) + Repli(Chr( 0 ),  19 ) 
  IF StartDoc(printerhDC, @lcDocInfo) >  0 
        = StartPage(printerhDC)
        = Rectangle(printerhdc, 100 - 1 , 300 - 1 , 400 + 1 , 600 + 1 )
        = DrawText (printerHDC, lcText, Len(lcText), @lcRect, DT_WORDBREAK) 
        = EndPage(printerhDC)
        = EndDoc(printerhDC)
  ENDIF 
 ENDIF 

PROCEDURE decl 
    DECLARE INTEGER GetActiveWindow IN user32 
    DECLARE INTEGER GetWindowDC IN user32 INTEGER hWnd 
    DECLARE INTEGER ReleaseDC IN user32 INTEGER hWnd, INTEGER hDC 
    DECLARE INTEGER DrawText IN user32; 
        INTEGER hDC, STRING lpString, INTEGER nCount,; 
        STRING @lpRect, INTEGER uFormat 
   DECLARE INTEGER CreateDC IN gdi32 STRING lpszDriver, STRING lpszDevice,INTEGER lpszOutput,   INTEGER lpInitData 
   DECLARE INTEGER StartDoc IN gdi32 INTEGER hdc, STRING @ lpdi  
   DECLARE INTEGER EndDoc IN gdi32 INTEGER hdc 
   DECLARE INTEGER StartPage IN gdi32 INTEGER hdc 
   DECLARE INTEGER EndPage IN gdi32   INTEGER hdc
   DECLARE INTEGER Rectangle IN gdi32   INTEGER hdc,INTEGER x1,INTEGER y1,INTEGER x2,INTEGER y2


FUNCTION n2dw (lnValue) 
#DEFINE m0        256  
#DEFINE m1      65536  
#DEFINE m2   16777216  
    LOCAL b0, b1, b2, b3 
    b3 = Int(lnValue/m2) 
    b2 = Int((lnValue - b3*m2)/m1) 
    b1 = Int((lnValue - b3*m2 - b2*m1)/m0) 
    b0 = Mod(lnValue, m0) 
RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3) 

a=GETPRINTER( )\r
IF !EMPTY(a)\r
  printerHDC=createdc(\'\',a, 0 , 0 ) && тут и берём контекст\r
  kX=GetDeviceCaps(printerHDC, 88 ) && у меня получилось  300 \r
  xY=GetDeviceCaps(printerHDC, 90 )\r
  lcDocInfo = Chr( 20 ) + Repli(Chr( 0 ),  19 ) \r
  IF StartDoc(printerhDC, @lcDocInfo) >  0 \r
        = StartPage(printerHDC)\r
        = Rectangle(printerHDC*kX,y1*kY,x2*kX,y2*kY)\r
        = DrawText (printerHDC, lcText, Len(lcText), @lcRect, DT_WORDBREAK) \r
        = EndPage(printerhDC)\r
        = EndDoc(printerhDC)\r
  ENDIF \r
 ENDIF \r