Dieses Beispiel zeigt, wie man eine existierende Textdatei ausdrucken kann.
Außerdem zeigt es den Umgang mit dem Desktop-Objekt.
Nebenbei erfährt man noch, wie Java-Klassen eingebunden werden.
|
Jabaco Source
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Option Explicit
Import java#awt#Desktop
Public Sub Command1_Click()
Dim desk As Desktop
Dim fileToPrint As java#io#File
On Error Goto ErrHandler
If Desktop.isDesktopSupported() Then
Debug.Print "Desktop-Klasse wird unterstützt"
desk = Desktop.getDesktop()
Debug.Print "Der Browser kann geöffnet werden: " _
& desk.isSupported(Desktop$Action.BROWSE)
Debug.Print "Eine Datei kann editiert werden: " _
& desk.isSupported(Desktop$Action.EDIT)
Debug.Print "Das Mail-Programm kann geöffnet werden: " _
& desk.isSupported(Desktop$Action.MAIL)
Debug.Print "Eine Datei kann geöffnet werden: " _
& desk.isSupported(Desktop$Action.OPEN)
Debug.Print "Eine Datei kann gedruckt werden: " _
& desk.isSupported(Desktop$Action.PRINT)
fileToPrint = New File("C:\tmp\Neu Textdokument.txt")
desk.print(fileToPrint)
End If
Exit Sub
ErrHandler:
Debug.Print Err.getMessage()
End Sub
|
Gruß!
A1880