Supportnet / Forum / Datenbanken
Fehler beim Kompilieren
Frage
hallo,
ich habe folgendes Problem:
beim Kompilieren des folgenden Codes
Private Sub DruckerListeAnstoßen()
Dim a As Long, b As String
Dim c As Long, Ausgabe As String
b = Application.activeprinter
End Sub
bekomme ich unter Access2000 bei ActivePrinter die Fehler Meldung "Methode oder Datenobjekt nicht gefunden", obwohl ich alle infragekommenden Verweise ausprobiert habe.
Antwort 1 von Teddy7
Wenn ich die Beschreibung von Application richtig interpretiere, dann betrifft das nur die Excel-Umgebung.
Dazu muß dann erst mal Excel definiert werden (mit entsprechendem Verweis) - also müßte es so gehen:
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
MsgBox "Der Name des aktiven Druckers lautet " & objExcel.Application.ActivePrinter
Gruß
Teddy
Dazu muß dann erst mal Excel definiert werden (mit entsprechendem Verweis) - also müßte es so gehen:
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
MsgBox "Der Name des aktiven Druckers lautet " & objExcel.Application.ActivePrinter
Gruß
Teddy