SaveAsPdf Issues

[sarzan]

The following code alwaysresult in "ERROR" case.
Using other SaveAs method (like SaveAsJpeg, SaveAsBmp ecc.) always result in a DONE case.

Any suggestion ?

***********************************
Dim oGdPicture As GdpicturePro.cGdPicture
Dim Result As Boolean

Set oGdPicture = New cGdPicture
oGdPicture.LoadFromGdiDib (gdViewer1.GetNativeImage)

Result = oGdPicture.SaveAsPdf("d:\t\PDFTest.pdf")
If Result Then
MsgBox "DONE!"
Else
Msgbox "ERROR!"
End If

[Loïc]

Hi,

You are making confusion between a dib and a gdi+ image handle.

Please replace this line

Code: Select all

oGdPicture.LoadFromGdiDib (gdViewer1.GetNativeImage) 

by this one:

Code: Select all

oGdPicture.SetNativeImage(gdViewer1.GetNativeImage) 

It will works !

Regards,

Loïc