Hallo zusammen,
ich benötige eure Hilfe. Ich habe schon mehreren Foren versucht eine Lösung zu finden, jedoch leider ohne Erfolg.
Ich habe einen Command Button, den ich zum speichern programiert habe.
Private Sub CommandButton1_Click()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\temp\"
Datei = "Test1_" & Range("B2") & "_" & Range("B3") & ".xls"
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy <> False Then ActiveWorkbook.SaveAs SaveDummy
End Sub
Das funktioniert auch wunderbar, jedoch ist es nicht genau das, was ich benötige.
Ich versuche folgendes:
- B2 bis M63 mit dem Commandbutton1 als PDF zu speichern(der PDF Drucker heißt Nuance PDF)und wie oben einen vorgefertigten Dateinamen angezeigt zu bekommen
- den selben Bereich(B2 bis M63) mit einem weiteren Commandbutton direkt zu drucken. Hierbei möchte ich noch hinterlegen, dass der Drucker im Querformat drucken und das Blatt auf einer Seite dargestellt werden soll.
Kann mir hierbei jemand weiterhelfen? Ich habe echt schon überall geschaut und auch ein paar Tipps gefunden. Nachdem ich mich jedoch nicht so gut auskenne, kann ich diese Infos nicht an der richtigen Stelle hinterlegen.
|