Dim nImageID As Long
twain1.TwainOpenDefaultSource
twain1.TwainSetErrorMessage (True)
twain1.TwainSetHideUI (True)
twain1.TwainSetCurrentPixelType (TWPT_RGB)
twain1.TwainSetCurrentBitDepth (8)
nImageID = twain1.TwainAcquireToImageID(Me.hWnd)
twain1.TwainCloseSource
If nImageID <> 0 Then
'save as 24bpp
twain1.SaveAsTiff ("tif24bpp")
'now save as 1bpp
twain1.ConvertTo1Bpp
twain1.SaveAsTiff ("tif1bpp")
twain1.CloseImage (nImageID)
End IfReturn to GdTwain [Pro] ActiveX
Users browsing this forum: Google [Bot] and 1 guest