Visual Basic Forum

BlAcKfINAl.aT · Poster Anmeldedatum: 26.07.2008 Beiträge: 162

Ich habe mich ma an die Arbeit gemacht und euch ein kleines Druckmodul geschrieben.

Damit könnt ihr

- Testen , ob ein Drucker vorhanden ist, wenn ja , wird er angezeigt
- Drucken
- Bis jetzt sonst nichts mehr Very Happy

Naja , ihr könnts euch mal anschauen.

Der Vorteil dabei ist, dass ihr nicht immer den Code schreiben müsst (falls euer Tool überhaupt die Druckfunktion braucht) , sondern einfach die Funktion aufrufen könnt.

Das Modul:

Visual Basic: [code]
'Written by BlackFinal.aT for
'##################################
'##########www.vb-x.org########## Dort Könnt ihr was lernen !
'##################################
'API
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Function isPrinterAvailable() As Boolean
isPrinterAvailable = (Printers.Count > 0)
End Function

Dim Drucker As String
Dim Pfadspeicher As String

Drucker = Printer.DeviceName

Function Drucken(Pfadspeicher As String)
With cldg 'Commondialog muss eingefügt werden und cldg genannt werden
.CancelError = True
.Filter = "*.TXT"
.ShowOpen
Pfadspeicher = .FileName
End With

Printer.Print Pfadspeicher

End Function

Function istEinDruckerDa()
If Not isPrinterAvailable() Then
MsgBox "Keine Druckerinformationen verfügbar.", vbInformation, "Leider kein Erfolg!"
End If

If isPrinterAvailable() Then
MsgBox "Druckerinformationen verfügbar.Ihr Drucker lautet" & Drucker, vbInformation, "Erfolg!"

End Function

[/code]

Wie man die Funktionen aufrufen kann , dürftet ihr wissen.

Have fun

Liebe Grüße
_________________