Faxnummer in der linken Fußzeile
23.04.2005 03:00:28
Klaus
Ich habe auf einem Tabellenblatt mehrere Faxnummern hinterlegt die ich durch ein Steuerelement (Matrix) in einem anderen Tabellenblatt angezeigt wird. Nun hätte ich gerne das die Faxnummer in der linken Fußzeile erscheint.
Geht das? wenn ja, wer kann mir helfen?
Besten Dank im voraus.
Hier ein Beispiel, es funktioniert, nur die Faxnummer soll sich ändern.
Sub Tpocal()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "<<An:Fax,018106494702025>>;""<<An:Fax,018106494701073>>;<<senden>>"
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Application.ActivePrinter = "TOPCALL Fax auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"TOPCALL Fax auf Ne00:"
End Sub