Sie versuchen, zu drucken, um PDF -, stuck auf dem letzten Schritt (automatisch als Datei speichern, mit Sendkeys) msExcel 2003

Ich versuche automatisch eine PDF-Datei erstellen (ohne Benutzeroberfläche, anderen als den Klick auf einen button in der Excel Datei). Ich scheinen, um alles richtig mit den code unten, aber wenn die Datei gespeichert wurde, automatisch generierten Namen, der code scheint nicht zu stoppen die Benutzer-und es fordert mich zur Eingabe von Dateinamen verwenden (statt greifen Sie automatisch aus dem code). Ich habe das Gefühl, dass sendkeys ist nicht für mich.

Sub PrinttoPDFTest()

    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$17"
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$17"
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF on Ne04:", Collate:=True

    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 5
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    Application.Wait waitTime

    Filename = "C:\Temp\PDF\" & ActiveSheet.Range("DateSerial").Value & ".pdf"

    SendKeys Filename & "{Enter}", False

End Sub
  • Schauen Sie hier: ozgrid
  • Dank Reafidy, das hat funktioniert! danke!
  • Okay, geschrieben als Antwort. Danke.
InformationsquelleAutor macutan | 2012-01-23
  1. 5

    Wäre es einfacher zu verwenden .ExportAsFixedFormat statt .Ausdruck, und nur stapeln Sie Ihre Anfragen (keine Verzögerung code erforderlich):

    Sub ExporttoPDF()

    Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, "C:\Folder\Filename1.pdf"
    Sheets("Sheet2").ExportAsFixedFormat xlTypePDF, "C:\Folder\Filename2.pdf"

End Sub

    Ersetzen Sie einfach die Destinationen und Dateinamen, und dieser code sollte funktionieren. Wenn Sie möchten, verwenden Sie einen Wert in das Blatt als Teil eines Dateinamens, dann können Sie verketten (&) wie diese:

    Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, "C:\Folder\" & Range("P10").Value & ".pdf"

    Oder speichern die Dateinamen in eine variable, und tun es auf diese Weise:

    dim filename as string

filename = Range("P10").Value

Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, filename

    Und es geht weiter und weiter...

    • Danke für diese Rob, ich war einfach nur testen Sie Ihren code, und ich bin immer: Run-time error '438': Objekt unterstützt diese Eigenschaft oder Methode nicht. Was ist der name der Referenz, die ich verwenden müssen? thx
    • Vereinbart, dass die ExportAsFixedFormat können Sie vermeiden, dass der Letzte Schritt, den Sie brauchen, beim drucken zu PDF. Aber der PDF-export ist vier mal größer als bei Druck. wenn ich pdf drucken bekomme ich eine Dateigröße von 22kp, wenn ich Sie als pdf bekomme ich 84. sice wir attache eine Menge von PDF ' s auf E-Mails, die Differenz kann dazu führen, das E-Mail-Adresse zu groß, um zu senden.
    InformationsquelleAutor Tim
Schreibe einen Kommentar