Save a rotated TIFF page

[cmlayman]

I am developing a form in MS Access that allows users to view incoming faxes and associate them with orders in our database. The faxes are mutipage TIFF files.

My issues is that when a user rotates a page that change to the image is not saved. Could someone please guide me on the proper way to save a rotated page?

Thanks,

Christina

Code that loads the image:

Code: Select all

Private Sub IncomingFaxesListBox_Click()
   
    Dim strPathAndFileName As String
   
    FaxViewer.CloseImage
    strPathAndFileName = "F:\" & Me.IncomingFaxesListBox.Column(0, Me.IncomingFaxesListBox.ItemsSelected(0))
    FaxViewer.CreateGdPictureImageFromFile strPathAndFileName
    FaxViewer.SetZoomFitControl
    ZoomLbl.Caption = (CLng(FaxViewer.Zoom * 100)) & " %"
    Me.LoadedFileTxt.Value = strPathAndFileName

    Call StoreNameCbo_AfterUpdate
   
End Sub

Code that rotates the page

Code: Select all

Private Sub Rotate90Btn_Click()
    FaxViewer.Rotate90
End Sub

[cmlayman]

Sorry - posted a bit of old code. The code i'm using to load the file is:

Private Sub IncomingFaxesListBox_Click()

Dim strPathAndFileName As String

FaxViewer.CloseImage
strPathAndFileName = "F:\" & Me.IncomingFaxesListBox.Column(0, Me.IncomingFaxesListBox.ItemsSelected(0))
FaxViewer.DisplayFromFile (strPathAndFileName)
FaxViewer.SetZoomFitControl
ZoomLbl.Caption = (CLng(FaxViewer.Zoom * 100)) & " %"
Me.LoadedFileTxt.Value = strPathAndFileName

Call StoreNameCbo_AfterUpdate

End Sub

[cmlayman]

Finally figured it out ... installed the GDPicture Pro and put an GdPicturePro5.Imaging ActiveX object on my form. Then I rotate and save with the following code:

Code: Select all

Private Sub FlipImageBtn_Click()
    Dim imageID As Long
   
    imageID = ImageViewer.TiffCreateMultiPageFromFile(Me.LoadedFileTxt.Value)
    Call ImageViewer.RotateAngle(180)
   
    If imageID <> 0 Then
        ImageViewer.SaveAsTIFF (Me.LoadedFileTxt.Value)
        ImageViewer.CloseImage (imageID)
    End If
End Sub

Hope this is helpful to someone.