Kapitel 13: Programmschnittstellen
Ist ein Bild vorhanden:
If Bild1.Picture <> "(keines)" Then
... zeigen wir den Windows-Druckassistenten an:
dlg.ShowPhotoPrintingWizard Bild1.Picture
Else
MsgBox "Kein Bild vorhanden!"
End If
End Sub
Der Assistent in Action:
Abbildung 13.30 Windows Druckassistent
Den Scanner-Assistent aufrufen
Nicht genug der Assistenten, auch für das Scannen in eine Datei steht ein entsprechender Assistent bereit:
Private Sub Befehl3_Click()
Dim dev As wia.Device
Dim dlg As New wia.CommonDialog
Dim img As wia.ImageFile
Set dev = dm.DeviceInfos(Liste2.ListIndex + 1).Connect()
870
Get Microsoft Office Access 2007-Programmierung - Das Handbuch now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.
