Image Viewer CP Pro SDK ActiveX

Image Viewer CP Pro SDK ActiveX

Platform : Windows 10, Windows 8, Vista, Windows 7, XP

It is a PDF Viewer and Document Viewer SDK , Export to PDF ,Image processing, 1D and 2D Barcode Reader, Writer, DICOM and OCR with C#, C , VB.NET , VB, Delphi, Vfp, MS Access.

Popular Solution Go   Back

MS Access 2016 - How to Export TIF page

Step 1: To install the Image Viewer CP Pro SDK ActiveX, begin by launching the setup file (http://www.viscomsoft.com/demo/imageviewercpprosetup.exe). Select the desired installation folder for the Image Viewer CP Pro SDK ActiveX and continue with the installation on your development computer.

Step 2: Launch MS Access 2016. select Blank database.

Step 3: Select Create Tab, select Form Design.
 

Step 4: Select Design Tab, Select ActiveX Control. Select Image Viewer CP Pro ActiveX Control.

 

Step 5: Resize the Image Viewer CP Pro ActiveX Control on form and add the following UI on form.(3 buttons 3 textboxs, 3 label controls)

 

Step 6: double click Open button, In code editor , then  Select Tools - References... , select  Microsoft Office 16.0 Object Library, click OK button.

 

 

Step 7:  In Open button click event, add the following code

Private Sub Command3_Click()

Dim bResult As Boolean

Dim obj As ImageViewer

Set obj = ImageViewer0.Object


Set dlg = Application.FileDialog(msoFileDialogOpen)

dlg.Filters.Clear

dlg.Filters.Add "TIFF", "*.tif;*.tiff"

bResult = dlg.Show

 

If bResult Then

   txtfilename.Value = dlg.SelectedItems(1)

    obj.LoadMultiPage dlg.SelectedItems(1), 1

    txttotalpage.Value = obj.GetTotalPage

    txtpagenumber.Value = 1

End If

 

End Sub

Step 8:  In go button click event, add the following code

Private Sub cmdgo_Click()
Dim obj As ImageViewer
Set obj = ImageViewer0.Object
 obj.LoadMultiPage txtfilename.Value, txtpagenumber.Value
 
 
End Sub

Step 9:  In Export button click event, add the following code

Private Sub cmdexport_Click()
Dim obj As ImageViewer
Set obj = ImageViewer0.Object
Dim dlg As FileDialog
Dim strType As String
Dim strFileName As String
strType = "tif"
obj.IsSaveMultiPage = False
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
     dlg.AllowMultiSelect = False
     .Title = "Save File"
     .InitialFileName = "YourFile"
End With
If dlg.Show Then
      strFileName = dlg.SelectedItems(1)
      
   iResult = obj.Save(strFileName, strType)
   
End If
 If iResult = 1 Then
        MsgBox "Save to " strFileName "." LCase(strType)
    Else
        MsgBox "Save failed"
    End If
    
End Sub

Step 9: Right click the Form1, then select "Open" menu item. Then you may run the form, load the TIF , click Go button to select specific page, then click export button to export this page.



Download the source code of the Export TIF Sample