Problem mit SendKey
12.04.2005 16:58:49
RolfK
ich versuche mit dem folgenden Makro in FritzFax die Faxnummer zu übergeben. Den Teil mit SendKeys habe ich in einem Makro von Hans gefunden.
Leider funktioniert die Übergabe nicht. Der Dialog von FritzFax wird geöffnet, es findet aber dort kein Eintrag statt. Hat einer einen Rat.
Sub FritzFax()
Dim ws As Worksheet, aktDrucker As String
Set ws = ThisWorkbook.Worksheets("Formular")
'aktueller Drucker merken
aktDrucker = Application.ActivePrinter
Call GetPrinterList
ws.PrintOut Copies:=1, ActivePrinter:=FaxDrucker
Application.Wait Now + TimeSerial(0, 0, 1)
Application.SendKeys ThisWorkbook.Worksheets("Kriterien").Range("Faxnummer").Value, True
'auf aktuellen Drucker zurücksetzen
Application.ActivePrinter = aktDrucker
End Sub
Rolf