Сканер+принтер=ксерокс - VB
Формулировка задачи:
Здравствуйте! Кто нибудь работал со сканером? Нужно сосканировать документ и выдать его на принтер. Сканер и принтер естественно подключены к одному ПК. Грубо говоря нужно чтоб программа работала как ксерокс. Сразу отмечу, что есть куча программ на эту тему но ни одна мне не подходит по той причине, что сканирование должно происходить при событии Form Load, после чего программа должна закрыться. Если есть у кого нибудь исходник буду признателен.
Решение задачи: «Сканер+принтер=ксерокс»
textual
Листинг программы
' TWAIN32d.dll или в System directory или в папку с прогой Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long ' ' Раскомментировать, если нужен выбор сканера 'Private Sub Command1_Click() 'TWAIN_SelectImageSource (Me.hWnd) 'End Sub Private Sub Command2_Click() Dim Ret As Long, PictureFile As String PictureFile = App.Path & "\temp.bmp" Ret = TWAIN_AcquireToFilename(Me.hWnd, PictureFile) If Ret = 0 Then 'если сканирование успешно Picture1.Picture = LoadPicture(PictureFile) ' контроль и печать Printer.PaintPicture Picture1.Image, 0, 0 ' Удаляем временный файл Kill PictureFile Else MsgBox "Сканирование не получилось!", vbCritical, "Scanning" End If End Sub Private Sub Form_Load() 'Command1.Caption = " Выбор сканера" ' если сканеров несколько, можно выбрать Command2.Caption = " Сканировать" Picture1.AutoRedraw = True ' чтобы уместить изображение End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д