AW: Drucekn mit Bild in Fußzeile VBA
13.09.2018 09:39:36
Micha.
Hallo Luschi,
komisch ich habe die Datei heruntergeladen und im Modul 4 steht das Marko.(Inhalte/Bearbeiten aktiviert).
Aber ich habe es versucht so zu lösen. Da ich mehrere Tabellen auf einer Seite habe arbeite ich mit Range.
Sub DruckSchicht1()
' DruckSchicht1
Dim Grafik As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Range("D1:AK24").Select
ActiveSheet.PageSetup.PrintArea = "$D$1:$AK$24"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(0.5)
.RightMargin = Application.CentimetersToPoints(0.5)
.TopMargin = Application.CentimetersToPoints(0.5)
.BottomMargin = Application.CentimetersToPoints(0.5)
.HeaderMargin = Application.CentimetersToPoints(0.5)
.FooterMargin = Application.CentimetersToPoints(0.5)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.LeftFooter = "erstellt von: " & Application.UserName
.CenterFooterPicture.Filename = "C:\Dokument\Bild.jpg"
.CenterFooter = "&G"
.RightFooter = "KSU: 10.1 Datum: " & Date
End With
Application.PrintCommunication = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
'Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub