Me tope con este codigo espero te ayude en algo
Código:
Private Sub escanear_Click()
Dim fecha_nueva As Date
' Bueno lo que hacemos aqui es crear una nueva variable tipo DATE
fecha_nueva = "04/10/2009"
' Y le asignamos alguna fecha del sistema en la que el EZTwain funcione osea una fecha vigente del periodo de prueba
Date = fecha_nueva
' Cambiamos nuestra fecha del sistema, por la fecha que vigente y procedemos a ejecutar las instrucciones que nos genera el asistente de codigo del EZTwain, como la fecha esta cambiada el EZTwain asume la fecha del sistema como la fecha que le asignamos y pudieron pasar 100 años que el funciona perfectamente
Call TWAIN_SetHideUI(1) ' don't show the scanner UI
Call TWAIN_OpenDefaultSource ' open the scanner device
Call TWAIN_EnableDuplex(1)
TWAIN_SetPixelType TWPT_BW ' ask to scan 1 bit per pixel black & white
TWAIN_SetResolution 300 ' at 300 DPI
' Now scan all available pages into a PDF file:
Call TWAIN_AcquireMultipageFile(frame_digitalizarhojas.hwnd, "c:\nombre_archivo.pdf"
' ESte Programa escanea muchas hojas por ADF y las empaqueta todas en un solo archivo .pdf
Date = fecha End Sub
' Y Finalmente volvemos la fecha del sistema a la normalidad con la variable global fecha que habiamos creado hace un rato y listop
Lo vi de aqui
http://www.taringa.net/posts/ebooks-...Basic-6_0.html