petersbande
hallo
wir haben hier Office 2007 und einige Probleme mit Access
wenn ich eine meiner kleinen Datenbanken aufrufe kommt eine Laufzeit Fehlermeldung und wenn ich dann auf den Debug Button klicke erscheint dies:
Private Sub Befehl52_Click()
'alten Drucker sichern
Dim Prtr As String
Prtr = Application.Printer.DeviceName
'neuen Drucker setzen
Application.Printer = Application.Printers("Petersbande")
'drucken
DoCmd.OpenReport "bericht_petersbande_alt"
'alten Drucker wiederherstellen
Application.Printer = Application.Printers(Prtr)
End Sub
was könnte das für ein Problem sein?
wir haben hier Office 2007 und einige Probleme mit Access
wenn ich eine meiner kleinen Datenbanken aufrufe kommt eine Laufzeit Fehlermeldung und wenn ich dann auf den Debug Button klicke erscheint dies:
Private Sub Befehl52_Click()
'alten Drucker sichern
Dim Prtr As String
Prtr = Application.Printer.DeviceName
'neuen Drucker setzen
Application.Printer = Application.Printers("Petersbande")
DoCmd.OpenReport "bericht_petersbande_alt"
'alten Drucker wiederherstellen
Application.Printer = Application.Printers(Prtr)
End Sub
was könnte das für ein Problem sein?