mehrere Blatt Excel-Datei zu PDF konvertieren mit VBA Fehler

Question

ich derzeit ein Mehrfachblatt zu konvertieren Ich versuche Excel in eine PDF-Datei mit VBA mit dem folgenden Code:

Private Sub CommandButton1_Click() 

Dim mySheets As Variant, sh 

mySheets = Array("Sheet1", "Sheet2", "Sheet3") 
For Each sh In mySheets 
    Sheets(sh).PageSetup.Orientation = xlLandscape 
Next 

Sheets(mySheets).Select 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="S:\GasInc\Services\B&ITS\OpsEng\EngServ\_Station Design\Projects\Station Co-ops\Angela Lian" & ".pdf", _ 
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False 

End Sub 

Es wandelt meine Datei in Ordnung, aber für das, was Ich habe auf Blatt 2 es in mehrere Seiten in der PDF-Datei aufgeteilt, weil ich denke, es skaliert es nicht auf die Seite passen. Ich habe mich gefragt, wie ich den Code so ändern könnte, dass er dieses Blatt so skaliert, dass es auf eine Seite der PDF passt.

Danke!

Answer 1

Ich habe ein ähnliches Sub in einem der Tools, die ich verwende. Haben Sie die Breite/Höhe-Skalierung Ihres Arbeitsblatts so angepasst, dass die Eigenschaften auf 1 Seite eingestellt sind?

For Each sh In mySheets 
    With Sheets(sh).PageSetup 
     .Orientation = xlLandscape 
     .Zoom = False 
     .FitToPagesWide = 1 
     .FitToPagesTall = 1 
    End With 
Next sh 

Einer der seltsamen Dinge, die ich habe laufen in ist Probleme Skalierung, wenn sie mit einigen Grafik/Bildobjekte in PDF zu konvertieren. Zum Beispiel sieht ein Logo auf dem Bildschirm gut aus, druckt aber gestreckt auf dem PDF. Ich habe das Problem nie behoben, aber durch Forschung schien es aufgrund der Art, wie der Drucker es sieht, im Vergleich zur Bildschirmauflösung. Bist du jemals auf dieses Problem gestoßen?