DECLARE PrintWindow IN WIN32API Long hwnd, Long hdcBlt, Long nFlags      
    DECLARE Long GdipGetImageGraphicsContext IN Gdiplus.dll Long nativeImage, Long @ graphics    
    DECLARE Long GdipGetDC IN Gdiplus.dll Long nativeImage, Long @ hdc    
    DECLARE Long GdipCreateBitmapFromScan0 IN Gdiplus.dll Long, Long, Long, Long, Long, Long @    
    DECLARE GdipDisposeImage IN Gdiplus.dll Long    
    DECLARE GdipDeleteGraphics IN Gdiplus.dll Long    
    DECLARE GdipReleaseDC IN Gdiplus.dll Long nativeGraphics, Long hdc    
    DECLARE Long GdipSaveImageToFile IN Gdiplus.dll Long, String, String, String    
        
    lqClsidEncoderBMP = 0h00F47C55041AD3119A730000F81EF32E    
    lnBitmap = 0    
    lnGraphics = 0    
    hdc = 0    
    lnStatus = 0    
    lnWidth = thisform.Width + 2 * SYSMETRIC(12)    
    lnHeight = thisform.Height + 2 * SYSMETRIC(13) + SYSMETRIC(9)    
        
    lnStatus = GdipCreateBitmapFromScan0(lnWidth, lnHeight, 0, 0x000E200B, 0, @lnBitmap)    
    IF lnStatus = 0    
        lnStatus = GdipGetImageGraphicsContext(lnBitMap, @lnGraphics)    
    ENDIF         
    IF lnStatus = 0    
        lnStatus = GdipGetDC(lnGraphics, @hdc)    
        PrintWindow(thisform.HWnd, hdc, 0)    
    ENDIF     
        
    = GdipReleaseDC(lnGraphics, hdc)    
    = GdipDeleteGraphics(lnGraphics)    
        
    lnStatus = GdipSaveImageToFile(lnBitMap, STRCONV("mytest.bmp" + CHR(0), 5), lqClsidEncoderBMP, NULL)    
        
    = GdipDisposeImage(lnBitMap)    
        
    IF lnStatus > 0    
        = MESSAGEBOX("Ошибка функции GDI+" + STR(lnStatus))    
    ENDIF

IF lnBitMap != 0  
        = GdipDisposeImage(lnBitMap)  
ENDIF   

    lnStatus = GdipSaveImageToFile(lnNewBitMap, STRCONV("mytest.bmp" + CHR(0), 5), lqClsidEncoderBMP, NULL)    
    = GdipDisposeImage(lnBitMap)    
     


  IF lnNewBitMap != 0  
     = GdipDisposeImage(lnNewBitMap)  
  ENDIF

#DEFINE SRCCOPY 13369376
LOCAL  llStatus, lnGraphics,lnWidth, lnHeight,lnWidthp, lnHeightp,tlunit,loPrint,lnWidthmm, lnHeightmm,lnPrintdpi
LOCAL nWidth,nHeight
LOCAL tnx,tny,imm,kmm,ik
nWidth=675  && --- Длина растра
nHeight=370 && --- Высота растра
&& oGPI.RotateFlip(3) && --- Поворот по горизонтали листа
oGPI.copyFormToImage(llStatus,nWidth,nHeight) && на базе класса, размещенного в решениях    
    loPrint = CREATEOBJECT("gdipPrinter",cPrinter)
    IF VARTYPE(loPrint) != "O"
        = MESSAGEBOX("Не удалось подключиться к принтеру",64)
        RETURN
    ENDIF
lnWidthmm = 0
lnHeightmm = 0
tlunit=.T.
llStatus=loPrint.setpageunit(tlunit,@lnWidthmm, @lnHeightmm)
    
lnWidthp = 0
lnHeightp = 0
tlunit=.F.
llStatus=loPrint.setpageunit(tlunit,@lnWidthp, @lnHeightp)
lnPrintdpi=lnHeightp/lnHeightmm*25.4 && Разрешение принтера DPI
*******
lnHeightp=int(lnHeightp*96/lnPrintdpi/18)*18 && пересчет на dpi= 96 и округление до целого кратного 18
********
lnWidth = 0
lnHeight = 0
oGPI.GetImageSize(@lnWidth, @lnHeight)
lnGraphics = loPrint.GetGraphics()
LOCAL ik,kmm,imm
imm=INT(lnHeight/lnHeightp)     &&число страниц целых
kmm=lnHeight% lnHeightp  && число строк на последней странице
tnx=0
tny=0
loPrint.OpenDocument("Графический вывод")
IF imm>0
    FOR ik=1 TO imm
        oGPI.ClipImagemy(tnx, tny, lnWidth, lnHeightp,lnGraphics) &&lnHeightp
        loPrint.NewPage()
        tny=tny+lnHeightp &&lnHeightp
    ENDFOR
ENDIF
IF kmm>0
    oGPI.ClipImagemy(tnx, tny, lnWidth, kmm,lnGraphics)
ENDIF
loPrint.CloseDocument()
&& oGPI.RotateFlip(1) && --- Портрет
WAIT 'Вывод на принтер сделан.' window TIMEOUT 3