Drucker auswählen ???? (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)


	CATIA V5 Grundkurs \| Einsteiger - 5 Std. 15 Min 48

	Erfolgreich unterwegs mit der KISTERS 3DViewStation, ein Whitepaper Meldungen abonnieren
Autor	Thema: Drucker auswählen ???? (1575 mal gelesen)
alias Mitglied CAD Betreuer Beiträge: 282 Registriert: 25.09.2003	erstellt am: 05. Aug. 2004 09:23 <-- editieren / zitieren --> Unities abgeben: Wie kann ich in einem Macro einen anderen Drucker als den Standarddrucker verwenden ? Komme immer bis zur Msgbox, und dann ist Funkstille ! Möchte hier von Standarddrucker auf einen TIFF Drucker umschalten. Drucker ist vorhanden und wird auch gefunden, aber nach dem Befehl CATIA.ActivePrinter ist mein MAcro einfach beendet. For k = 1 To CATIA.Printers.Count Msgbox "Plotterauswahl: " & CATIA.Printers.Item(k).DeviceName If CATIA.Printers.Item(k).DeviceName = "Tiff" Then Set ActivePrinter = CATIA.Printers.Item(k) Msgbox "TEST" CATIA.ActivePrinter = ActivePrinter End If Next Danke für jede Hilfe alias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
StRei Mitglied CAD/EDA-Systemadministration Beiträge: 32 Registriert: 30.08.2001 MS WindowsXP 64bit ed. (SP1) IntelliStation A Pro 2*AMD Opteron 250 2,4 8GB Ram, Quadro FX3450 IntelliStation M Pro Intel Core2Duo 2,66 8GB Ram, Quadro FX3500 CATIA V5R17SP7 / V5R18SP3 SmarTeam V5R17SP7	erstellt am: 05. Aug. 2004 17:49 <-- editieren / zitieren --> Unities abgeben: Nur für alias Hallo alias, ich habe Dir mal ein paar Zeilen Code aus meinem BatchPlot-Programm gezogen: Private Sub SwitchPrinter(plotter As String) For j = 1 To SystemPrinters.Count Select Case SystemPrinters.Item(j).DeviceName Case plotter: CATIA.ActivePrinter = SystemPrinters.Item(j) 'Printer gefunden und eingestellt Exit Sub End Select Next CATIA.ActivePrinter = SystemPrinter 'Printer nicht gefunden, zurück zum Standarddrucker End Sub ------------------ Stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Hokay Mitglied Beiträge: 143 Registriert: 27.07.2004 Win7-Enterprice Catia V5 R24 SP1	erstellt am: 10. Okt. 2013 10:14 <-- editieren / zitieren --> Unities abgeben: Nur für alias Hallöchen Zusammen, OK das funzt ja soweit. ABER!!! ich möchte nicht den DeviceName verwenden (bei uns: \\dewwvsprint04\DEWSHCAD003) sondern ich möchte den Modell-Namen sehen (mein Wunsch: Canon iR-ADV C5030/5035 PCL5c) was muss ich hinter ....Item(i). schreiben? Hokay Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
HoBLila Mitglied Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx Beiträge: 1118 Registriert: 29.05.2008 DELL PRECISION T3500 Intel(R) Xeon(R) CPU W3540 @ 2.93GHz 12285 MB RAM NVIDIA Quadro FX 1800 Microsoft Windows 7 Enterprise Service Pack 1 CATIA V5 R19 SP09 HF69 VB6.5 CAA RADE CDC	erstellt am: 10. Okt. 2013 17:43 <-- editieren / zitieren --> Unities abgeben: Nur für alias Hallo Hokay, da scheint es nix besseres zu geben. Bei uns steht in DeviceName auch schon alles richtig drin. bei Name könnte noch etwas drinstehen, aber das ist bei uns der Pfad. Du wirst wohl auf Windows-Funktionen zurückgreifen müssen, wenn Du etwas anderes möchtest. Unter http://www.cpearson.com/excel/GetPrinters.aspx gibt es einen interessanten Ansatz über die Registry. Ich würde aber eine Windows-DLL mit direktem Zugriff bevorzugen. Die wird sicher aber noch komplexer einzubinden sein. ------------------ Mit freundlichen Grüßen, Henry Schneider alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren: Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen, die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)