drucken Wenn Sie Dokumente aus Word mit VBA drucken, können Sie auswählen, aus welchem ​​Druckerfach das Dokument ein Blatt erhalten soll. In Excel haben Sie nicht die Möglichkeit, die Eigenschaften FirstPageTray oder OtherPagesTray wie in Word festzulegen. Mit SendKeys können Sie eine einfache Lösung erstellen.

Hier sind zwei Beispielmakros:

Sub ChangeTray()

' selects the manual page tray without printing

Application.SendKeys "%fu%e{TAB}{DOWN}{DOWN}{TAB}m~{ESC}", True

End Sub

Sub ChangeTrayAndPrint()

' selects the manual page tray and prints the selected sheet(s)

Application.SendKeys "%fu%e{TAB}{DOWN}{DOWN}{TAB}m~~", True

End Sub

Die obigen Beispielmakros funktionieren mit der norwegischen Version von Excel97 zusammen mit einem Canon-Bubblejet-Drucker.

Der Inhalt des Textstrings, den Sie mit SendKeys übertragen, kann je nach Excel-Version und installiertem Drucker von Computer zu Computer unterschiedlich sein. Sie müssen die oben genannten Makros bearbeiten, damit sie auf Ihrem Computer für Sie funktionieren.

Eine vollständige Liste der Sonderzeichen, die die Sonderfunktionstasten ersetzen, finden Sie in der integrierten Hilfe für VBA. Geben Sie SendKeys in ein Modul ein, wählen Sie das Wort aus und drücken Sie die Taste F1.