| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Innovationstag mit SolidCAM und Plogmann bei HEDELIUS in Meppen, eine Veranstaltung am 21.11.2024
|
Autor
|
Thema: Bestimmte Drucker hinter Schaltflächen festlegen (1599 mal gelesen)
|
SannSpeed Mitglied Technischer Zeichner
Beiträge: 99 Registriert: 03.09.2008 SolidWorks 2023 x64 Edition
|
erstellt am: 19. Aug. 2014 08:37 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich würde gerne zwei Druckerschaltflächen haben, hinter der einmal der Standarddrucker und einmal der PDF-Drucker steckt. D.h.: Ich würde gerne auf den Knopf drücken und es wird sofort entweder an den Standard Drucker gesendet oder an den PDF-Drucker - OHNE AUSWAHLFENSTER. Ich weiß - das ging mal. Aber ich weiß nicht wie ------------------ Ihr Jungen, hört auf einen Alten, auf den die Alten hörten als er noch jung war! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
The Trooper Mitglied Konstrukteur, Maschinenbautechniker
Beiträge: 23 Registriert: 29.09.2006
|
erstellt am: 19. Aug. 2014 09:15 <-- editieren / zitieren --> Unities abgeben: Nur für SannSpeed
|
SannSpeed Mitglied Technischer Zeichner
Beiträge: 99 Registriert: 03.09.2008 SolidWorks 2023 x64 Edition
|
erstellt am: 19. Aug. 2014 10:07 <-- editieren / zitieren --> Unities abgeben:
Machen wir eben so Die Drucker sind ja schon alle da. Ich möchte halt nur auf den jeweiligen Knopf drücken und dann wird entweder direkt an den Papier- oder den PDF-Drucker geschickt. ------------------ Ihr Jungen, hört auf einen Alten, auf den die Alten hörten als er noch jung war! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StefanBerlitz Guter-Geist-Moderator IT Admin (CAx)
Beiträge: 8756 Registriert: 02.03.2000 SunZu sagt: Analysiere die Vorteile, die du aus meinem Ratschlag ziehst. Dann gliedere deine Kräfte entsprechend und mache dir außergewöhnliche Taktiken zunutze.
|
erstellt am: 19. Aug. 2014 10:24 <-- editieren / zitieren --> Unities abgeben: Nur für SannSpeed
|
SannSpeed Mitglied Technischer Zeichner
Beiträge: 99 Registriert: 03.09.2008 SolidWorks 2023 x64 Edition
|
erstellt am: 19. Aug. 2014 11:06 <-- editieren / zitieren --> Unities abgeben:
Super, danke Stefan. Dann werde ich mich da mal versuchen rein zu lesen. Das Prob ist, ich darf hier eben fast nix ohne die IT mache Aber ich guck mal. Gruß Phil ------------------ Ihr Jungen, hört auf einen Alten, auf den die Alten hörten als er noch jung war! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2580 Registriert: 02.10.2006 Firma: SW 2024-3.1 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2023-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 19. Aug. 2014 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für SannSpeed
Hallo Phil, ich habe mir dafür ein Makro zusammengestellt (aus den vielen Druckermakros die hier so zu bekommen sind), die genau deine Anforderung erfüllt. Für jeden Drucker ein eigenes Makro, das durch eine Schaltfläche in der Menüleiste angesprochen wird. Ich habe dir mal ein Packet mit Makro und Schaltflächen zusammengestellt. Du musst nur im jeweiligen Makro den genauen Druckernamen ca. in Zeile 50 angeben. Außerdem in den Case Anweisungen diese Parameter von deinen Druckern anpassen. swPs.PrinterPaperSize = 9 swPs.PrinterPaperSource = 7 Die Papierquelle lässt sich sehr gut mit dem Prg. "PrinterInfo.exe" von "Printman", von Uwe Thieme (www.umct.de) auslesen. Evtl. hilft dir das weiter. Grüße, Andi ------------------ Hast du kein Problem? Such dir eins. ( Und löse es ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SannSpeed Mitglied Technischer Zeichner
Beiträge: 99 Registriert: 03.09.2008 SolidWorks 2023 x64 Edition
|
erstellt am: 19. Aug. 2014 15:18 <-- editieren / zitieren --> Unities abgeben:
mist----hier gibt's keine Herzchen <3 <3 <3 <3 <3 <3 Werde es alsbald ausprobieren.
Vielen Dank GreetZ Phil *Edith sagt*: Das erste Makro gleich mal zerschossen Nochmal laden und in ruhe probieren ------------------ Ihr Jungen, hört auf einen Alten, auf den die Alten hörten als er noch jung war! [Diese Nachricht wurde von SannSpeed am 19. Aug. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 20. Aug. 2014 08:25 <-- editieren / zitieren --> Unities abgeben: Nur für SannSpeed
Guten Morgen Phil, zum Thema "Druck als PDF", nutzen wir folgendes "quick'n dirty" Makro:
Code:
Dim swApp As ObjectDim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = _ Application.SldWorks Set Part = swApp.ActiveDoc If Part Is Nothing Then Exit Sub End If If Part.GetType = swDocDRAWING Then Dim pfad As String pfad = Part.GetPathName If pfad = "" Then Part.Save pfad = Part.GetPathName End If pfad = Strings.Left(pfad, Strings.Len(pfad) - 7) longstatus = Part.SaveAs3(pfad & ".PDF", 0, 0) Else MsgBox "Keine Zeichnung geöffnet." & vbNewLine & "Aktion wird abgebrochen." End If End Sub
Es lebe der SolidWorks - Makro - Recorder + einige kleine Anpassungen. Das Makro macht nichts anderes als deine Zeichnung als PDF im selben Ordner wie das Original zu speichern. Solche kleinen Makros nutzen wir auch, um per Makro - Schaltfläche BMP's, EASM's, EPRT's, etc. zu erzeugen und ggf. gleich in einem fest definierten Ordner abzulegen. Gruß und HTH Tobias ------------------ Besucht mich doch mal in meiner Tischlerei "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |