- Code: Select all
Public Sub DisplayPDF(FileName)
Dim Temp As String
Dim tmp As Single
tmp = 33 ' used to set the Zoom size
frmSign.Picture1.Enabled = False
frmSign.GdViewer1.Enabled = True
frmSign.GdViewer1.setZoom (tmp)
frmSign.GdViewer1.DisplayFromPdfFile (FileName)
Select Case MsgBox("Correct Form ", vbYesNo)
Case vbYes
strPDFdis = True
Case Else
strPDFdis = False
End Select
frmSign.Picture1.Enabled = True
frmSign.GdViewer1.Enabled = False
Exit Sub
Thanks
Rich
