I have instaled the last version of GdPicture Pro.
The program I'm trying to perform is just to view Word documents.
This is the code :
- Code: Select all
Dim oWord As Word.Application
Dim oGdPictureLocal As New GdpicturePro.cGdPicture
oGdPictureLocal.SetLicenceNumber "XXXX"
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open FileName, False, True, False
oWord.Documents(1).Activate
Clipboard.Clear
oWord.Documents(1).Select
oWord.Selection.CopyAsPicture
oWord.Application.Documents(1).Close False
oWord.Quit
Set oWord = Nothing
Picture1.Picture = Clipboard.GetData(3)
Picture1.Width = Picture1.Picture.Width / Screen.TwipsPerPixelX
Picture1.Height = Picture1.Picture.Height / Screen.TwipsPerPixelY
oGdViewer.DisplayFromClipboardData
'or
'oGdViewer.DisplayFromStdPicture Picture1.Picture
Word CopyAsPicture funtion export the image as wmf.
The image on GdViewer is displayed with the screen resolution width and height, and the image on picture1 is show perfectelly.
Can you help me?
Thanks
