I am trying to print a tiff image using your code example. I always get an exception error at the EndPage(lnHDC). Any ideas of where I am going wrong or alternative suggestions?

Bad Code:
lcDoc = lcPath + "\" + aFiles[i,1]
lnHeap = HeapCreate(0, 8192, 0)
*lnDoc = HeapAlloc( lnHeap, 0, Len(lcDoc)+1 )
lnDoc = HeapAlloc( lnHeap, 0, fsize(lcDoc)+1 )
lstrcpy( lnDoc, lcDoc )
lcStruct = thisForm.ToInt(12)+thisForm.ToInt(lnDoc)+ thisForm.ToInt(0)
StartDoc(lnHDC, lcStruct)
StartPage(lnHDC)
THISFORM.oleEdit.Image = lcDoc
* start,end,fittopage,annotation,printername (driver & port not needed
* when using HDC)
*THISFORM.oleEdit.PrintImage( nStartPage, nEndPage, FitToPage, Annotation ,
* lnHDC )
THISFORM.oleEdit.PrintImage(1,1,2,.F.,lnHDC)
EndPage(lnHDC)