Office: Arbeitsblatt auf ein A4 PDF drucken

Moin, das drucken als PDF läuft grundsätzlich - leider ist das Ausgabeergebnis auf unterschiedlichen PC´s unterschiedlich. Mal kommt wie gewünscht eine Seite als PDF raus , mal sind es zwei Seiten. Die Spaltenbreite habe ich im Makro wiefolgt festgelegt :
With Blatt1_2015
.Columns("A:A").ColumnWidth = 1.16
.Columns("B:B").ColumnWidth = 7.01
.Columns("C:C").ColumnWidth = 3.91
.Columns("D*biggrin.gif*").ColumnWidth = 2.21
.Columns("E:E").ColumnWidth = 6.8
.Columns("F:F").ColumnWidth = 26
.Columns("G:G").ColumnWidth = 26
.Columns("H:H").ColumnWidth = 20
End With

Was habe ich vergessen oder muß ich noch wie festlegen?

:)

 

Seite einrichte, 1 Seite Breit, 1 Seite hoch.

 

Hallo Hajo , nach besten Wissen getan ..... bleibt erfolglos wenn ich es so schreibe :

Sub Blatt2ToPdf()
Dim PFADTRENNZEICHEN As String
PFADTRENNZEICHEN = Application.PathSeparator
With ThisWorkbook.Worksheets(2).PageSetup ' Tabellenblatt 2
.LeftMargin = Application.CentimetersToPoints(1) 'Rand - 1 cm links
.RightMargin = Application.CentimetersToPoints(0) 'Rand - 0 cm rechts
.TopMargin = Application.CentimetersToPoints(1) ' Rand - 1 cm oben
.BottomMargin = Application.CentimetersToPoints(1) 'Rand - 1 cm unten
.PaperSize = xlPaperA4 ' DIN A4 verwenden
.FitToPagesWide = 1 ' Skalierung anpassen , 1 Seite hoch
.FitToPagesTall = 1 ' Skalierung anpassen , 1 Seiten breit
End With
Blatt2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & PFADTRENNZEICHEN & "Januar" & Format(Date, "YYYY.MM.DD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MsgBox "PDF erstellt !!!"
End Sub

 

Hallo,

Code:

 

hmm ... irgendwie komisch auf den Windowskisten verhält es sich so wie es soll und auf den zwei Mac's scheint er es zu ignorieren.

Einer eine Idee warum das Seitenlayout bei Mac nicht greift?
Kann leider erst Montag direkt an nee Mackiste um zu schauen was sie macht , bis dato bekomme ich nur die PDF's vom vom User ....und die sind Fehlerhaft (immer noch 2 Seiten und Seitenrand zubreit)

 

jaja zum testen die Richtige Datei nehmen und schon wirken die Änderungen ....
läuft mit dem Vorschlag von Harry. DANKE !!!