ImageScanner
Private Sub Command1_Click() With ImgScan1 .ScanTo = FileOnly .Image = App.Path & "\prova" .OpenScanner .StartScan .CloseScanner End With End Sub
Private Sub Command1_Click()
With ImgScan1
.ScanTo = FileOnly
.Image = App.Path & "\prova"
.OpenScanner
.StartScan
.CloseScanner
End With
End Sub
( imagescanner.html )- by Paolo Puglisi
- Modifica del 17/12/2023