FritzFax dynamischer Tabellenname
20.02.2008 17:30:00
Wrobel
Habe hier ein Befehl womit man eine Faxnummer an Fritzfax übermitteln kann. Nur was mache ich wenn meine Tabellenblätter ständig anders benannt werden? Der Befehl ist nur für einen starren Tabellennamen ausgelegt.
Könnte mir jemand dabei helfen, so dass sich der Code an die neuen Tabellennamen anpassen kann?
Gruß
Andre
Sub FritzFax()
Dim sPrinter As String
sPrinter = Application.ActivePrinter
Application.ActivePrinter = _
"FRITZfax Drucker auf Ne03:"
Worksheets("L1").PrintOut
Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys Worksheets("L1").Range("C1").Value, True
Application.ActivePrinter = sPrinter
End Sub