SET PROCEDURE TO gdiplus ADDITIVE
DO decl
 
* an instance of gdiplusinit should be created before
* and released after using any of gdi+ objects
PRIVATE gdiplus
gdiplus = CREATEOBJECT("gdiplusinit")
 
LOCAL img, hPrnDC, gdip, docinfo
hPrnDC = GetPrnDC()
img = CREATEOBJECT("gdiimage", "c:\windows\forest.bmp")
gdip = CREATEOBJECT("graphics", hPrnDC)
 
docinfo = PADR(CHR(20), 20, CHR(0))
= StartDoc(m.hPrnDC, m.docinfo)
= StartPage(m.hPrnDC)
WITH gdip
    .DrawImage(img, 20,20)
    .DrawImage(img, 25+img.imgwidth,20,;
        img.imgwidth/4, img.imgheight/4)
ENDWITH
= EndPage(m.hPrnDC)
= EndDoc(m.hPrnDC)
= DeleteDC(hPrnDC)
* end of main
 
FUNCTION GetPrnDC
* returns device context of default printer
#DEFINE PD_RETURNDC      0x100
#DEFINE PD_RETURNDEFAULT 0x400
    LOCAL lcStruct, lnFlags
    lnFlags = PD_RETURNDEFAULT + PD_RETURNDC
 
    lcStruct = num2dword(66) + Repli(Chr(0), 16) +;
        num2dword(lnFlags) + Repli(Chr(0), 42)
    IF PrintDlg(@lcStruct) <> 0
        RETURN buf2dword (SUBSTR(lcStruct, 17,4))
    ENDIF
RETURN 0
 
PROCEDURE decl
    DECLARE INTEGER DeleteDC IN gdi32 INTEGER hdc
    DECLARE INTEGER PrintDlg IN comdlg32 STRING @ lppd
    DECLARE INTEGER StartPage IN gdi32 INTEGER hdc
    DECLARE INTEGER EndPage IN gdi32 INTEGER hdc
    DECLARE INTEGER EndDoc IN gdi32 INTEGER hdc
    DECLARE INTEGER StartDoc IN gdi32 INTEGER hdc, STRING lpdi