OpenEuphoria

win32lib printing

• Posted by buzzo Dec 22, 2014
• 1408 views

Unable to print an image to Printer

Can "draw" stuff with out problems

this is a code snippet:

if havePhoto = True then 
 
    db_select_table("photographs") 
 
    recordNum = db_find_key(aKey) 
 
    jpgImage = db_record_data(recordNum) 
 
    l =  length(jpgImage) 
 
    if l > 0 then 
 
        name = lower((slice(jpgImage,1,l-3))) 
 
        name = name & "bmp" 
 
        fileName = pathToPhoto & surName & "\\" & name 
 
        bmp = loadBitmapFromFile(fileName) 
 
        nexBox=nexBox+(topBox*2) 
 
        setPenPos(Printer, xPos+10,nexBox) 
 
        copyBlt(Printer,xPos+10,nexBox, bmp) 
 
    end if 
 
end if