Jabaco Source

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