Fax und Druck auf lokalem Drucker
Jochen
wieder einmal beschäftigt mich ein Problem(chen):
Global BtnSave As Boolean
Sub Ausdruck()
With Sheets("Ausdruck")
.Visible = True
.Activate
End With
Dim I!, E!, L!, s%
E = 5
L = 401
s = 2
For I = E To L
If Cells(I, s).Text = "" Then Exit For
Next
Range(Cells(I, s), Cells(Rows.Count, s)).EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range(Cells(I, s), Cells(Rows.Count, s)).EntireRow.Hidden = False
With Sheets("Ausdruck")
.Visible = xlVeryHidden
End With
End Sub
Hiermit drucke ich das Tabellenblatt 'Ausdruck' auf meinem lokalen Drucker.
Wie muss ich das jetzt anstellen, damit Excel mir über eben diesen lokalen Drucker das Blatt 'Ausdruck' als Fax an eine bestimmte Faxnummer schickt und gleichzeitig eine Kopie auf dem lokalen Drucker ausdruckt?
Bin wieder mal sehr gespannt und sicher, dass mir hier wieder bestens geholfen wird.
Einen schönen Tag wünscht
Jochen