Fritz Fax
08.10.2007 16:41:00
Andre
habe folgenden Code:
Sub Faxen()
Range("C1").Select
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.ActivePrinter = _
"FRITZfax Drucker auf Ne03:"
Worksheets("Test1").PrintOut
Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys Worksheets("Test1").Range("C1").Value, True
Application.ActivePrinter = sPrinter
End Sub
Leider funktioniert der o.g. Code nur eingeschränkt und unzuverlässig.
Eingeschränkt nur, da in Zeile 9 der Tabellenname (Test1) fix ist und sich bei mir die Namen stetig ändern. Der Code müsste so sein, dass die Tabelle 4 angesprochen wird und nicht der Reitername sprich Tabellenname.
Unzuverlässig deshalb, da der Inhalt d.h. die Faxnummer nicht immer wenn ich den Code ausführe mitgesendet wird. z.b. wenn ich den Code das erste Mal nach dem öffnen der Tabelle ausführe, funktioniert es. Wenn ich aber den Code ein weiteres Mal ausführen möchte, z.B. wenn das Fax nicht angekommen ist geht es wiederrum nicht.
Wie kann das sein? Hat jemand einen Tipp?
Gruß
André aus SH
Anzeige