---

Hallo,

gibt es einen Befehl, womit man per VBA eine Druckvorschau erzeugen
kann?
Mit  " oPrintMgr.SubmitPrint "  wird der Druck ausgelöst.

#################
Private Sub Druckvorschau()
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
'Drucker festlegen
Dim sPrinterName As String
sPrinterName = "\\VLUS104\Brother HL-1850/1870N series"
sPrintMgr.Printer = sPrinterName
oPrintMgr.ColorMode = kPrintGrayScale
' usw.

' würde hier gerne eine Vorschau erzeugen, aber wie????

oPrintMgr.SubmitPrint
End Sub
#######################################

MFG VOSTA

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Thema ist immer noch aktuell.
Wer wer kanns???
MFG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Vosta,

die Holzhacker-Methode:

' würde hier gerne eine Vorschau erzeugen, aber wie????
Call SendKeys("%D")
Call SendKeys("{DOWN 12}")
Call SendKeys("{ENTER}")

Grüsse,

Paul

www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paul,
das funktioniert bei mir nicht? Inventor 9Pro

bekomme mit

SendKeys "^p", 1

das Druckmenü geöffnet, komme aber nicht auf Vorschau
welche SendKeys gibt es noch
z.B für
Tab-Taste
Return-Taste

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Vosta,

Call SendKeys("%D")
öffnet das Menü 'Datei'

Call SendKeys("{DOWN 12}")
löst 12x die 'Pfeil nach unten' taste aus

Call SendKeys("{ENTER}")
sendet ein 'Enter'

Bei Dir gehts wahrscheinlich nicht, weil in IV9 der Eintrag für die Druck-Vorschau im Menü 'Datei' an 12. sondern an 11. Stelle ist - ändere diese Zeile in
Call SendKeys("{DOWN 11}")

Welche SendKeys es noch gibt ? - Alle...

SendKeys simuliert nur eine Tastatureingabe.

Guckst in VB-Hilfe unter 'SendKeys'

Grüsse,

Paul

www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paul,
genau da scheint es zu klemmen

wenn ich in meinem geöffneten Druckmenü die Pfeil nach unten Taste
12 mal drücke dann ändert sich der Drucker.
Mit der Tab Taste würde er zu Vorschau springen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
dieser Code öffnet Druckvorschau Inventor 9Pro.

Sub P_Vorschau()
SendKeys "%D"
SendKeys "D"
SendKeys "{TAB 10}"
SendKeys "{Enter}"
End Sub

MFG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP