ViscomSoft Software

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