Сканер+принтер=ксерокс - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5