Acquire to multipage tiff from Flatbed

[GurZ]

Hi!

Im trying to create a multipage tiff using the flatbed, but the TwainAcquireToGdPictureImage() method only works at first page.

I need a example.


Thanks!

[Loïc]

Hi,

This is a simple sample do do something like that:

Code: Select all

Dim nImageCount As Long
Dim nAcquiredImage As Long
Dim nPageCount As Long

 While MsgBox("Do you want to acquire an other page ?", vbYesNo) = 6
   nAcquiredImage = Imaging1.TwainAcquireToGdPictureImage(Me.hWnd)
   If nAcquiredImage <> 0 Then
      nPageCount = nPageCount + 1
      If nPageCount = 1 Then
         Imaging1.TiffSaveAsNativeMultiPage ("multipage.tif")
      Else
         Imaging1.TiffAddToNativeMultiPage (nAcquiredImage)
         Imaging1.CloseImage (nAcquiredImage)
      End If
   End If
Wend

Imaging1.TiffCloseNativeMultiPage

Loïc

[GurZ]

Thank you