| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Turbocad |
Autor
|
Thema: Druckereinstellung auf Zeichnung bezogen (1194 mal gelesen)
|
hu Mitglied -
Beiträge: 7 Registriert: 13.10.2003
|
erstellt am: 27. Okt. 2003 17:50 <-- editieren / zitieren --> Unities abgeben:
Turbocadversion 7.1 Um Zeichnungen und Vorlagen speditiv auszudrucken zu können wäre es von Vorteil, wenn die Druckereinstellungen auf die Zeichnung/Vorlage bezogen abgelegt werden könnten. Das heisst wenn ich mit einer A3-Zeichnung/Vorlage arbeite hätte ich gerne den A3-Drucker benutzt. Natürlich muss ich dieser Zeichnung/Vorlage einmal diesen Drucker mit seinen Einstellungen zugewiesen haben. Mit einer A4-Zeichnung/Vorlage den A4-Drucker mit all seinen Einstellung. Bei Autocad LT habe ich diese Möglichkeit. Nun frage ich mich ob ich diese Möglichkeit bei Turbocad ebenfalls habe oder ob ich mir mit einem Makro behelfen könnte. Das Makro müsste auf jeder Zeichnung/Vorlage vorhanden sein und würde mir vor dem Drucken die jeweiligen Einstellungen vornehmen. Ich hoffe Ihr versteht mein Anliegen und könnt mir behilflich sein. Danke und tschüss. ------------------ - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joiner Mitglied
Beiträge: 287 Registriert: 30.07.2001
|
erstellt am: 30. Okt. 2003 18:11 <-- editieren / zitieren --> Unities abgeben: Nur für hu
Hallo, bei den Windowsprogrammen wird zum Drucken immer der Standarddrucker zuerst ausgewählt. Ich weiss nicht ob hier Auswahlmöglichkeiten da sind. Alle anderen Einstellungen sind auf jeden Fall mit der Vorlage gespeichert. Gruß SteffL Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hu Mitglied -
Beiträge: 7 Registriert: 13.10.2003
|
erstellt am: 02. Nov. 2003 14:42 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich will Euch mein Turbocadproblem nochmals schildern um Missverständissen vorzubeugen. Mein aktuelles Projekt umfasst ca. 40 Zeichnungen in verschiedenen Formaten: A4_hoch und A4_quer mit Brother-Drucker und A3_hoch und A3_quer mit Epson-Drucker. Mit Turbocad ist es möglich die Seiteneinrichtung unter jeder Zeichnung zu speichern, jedoch kann der jeweilige Drucker nicht gespeichert werden. Bei jedem Drucken wird standardmässig der Standarddrucker vorgewählt. Will ich nun mein Projekt vollumfänglich ausdrucken bedeutet das sehr viel Fleissarbeit. Nun hätte ich gerne ein Makro für jede Zeichnung, dass mir den richtigen Drucker wählt und die Zeichnung ausdruckt. Fragen: 1. Wie wähle ich einen anderen Drucker unter VBA ev. Standarddrucker 2. Wie drucke ich eine Zeichnung unter VBA 3. Unter Ordneroptionen können DDE-Befehle ausgeführt werden, um mehrere Turbocaddateien nacheinander zu öffnen [open("%1")]. Können auf diese Art auch Makros ausgeführt werden? Bin auch für Teilantworten sehr dankbar und tschüss ------------------ - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
kd Mitglied Lehrkraft
Beiträge: 40 Registriert: 06.06.2003
|
erstellt am: 02. Nov. 2003 18:49 <-- editieren / zitieren --> Unities abgeben: Nur für hu
Hallo hu! Hab meine Druckvorbereitungen (speziell Word, Excel) mit "SendKeys" gelöst. Hat den Vorteil, dass Du ganz speziell Einstellungen im Druckertreiber vornehmen kannst, für die es keine Schlüsselwörter in VBA gibt. Hat den Nachteil, dass es dauert, bis der Code steht. Schönen Sonntag noch! mfg kd. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hu Mitglied -
Beiträge: 7 Registriert: 13.10.2003
|
erstellt am: 03. Nov. 2003 11:07 <-- editieren / zitieren --> Unities abgeben:
|
kd Mitglied Lehrkraft
Beiträge: 40 Registriert: 06.06.2003
|
erstellt am: 03. Nov. 2003 14:17 <-- editieren / zitieren --> Unities abgeben: Nur für hu
Hallo hu. Das Stück Code zeigt meine Druckereinstellung zum Ausdruck eines Excel-Blattes. Habe die für mich damals "wichtigen" Erkenntnisse als Kommentar mit im Code gelassen. Könnte mir vorstellen, dass man so eine "Krücke" auch für Dein Problem basteln kann - ist zumindest überlegenswert. Vielleicht hat jemand noch 'ne elegantere Lösung....? Viel Erfolg! mfg kd. Option Explicit 'KD-XP-2002-11-23 'für XP + Canon BJC 600 Sub Weg_zu_Drucker_SW() Dim stat_bar As String On Error GoTo F If TypeName(ActiveSheet) <> "Worksheet" Then GoTo F stat_bar = Application.DisplayStatusBar Application.StatusBar = ">>> Drucken >>>>>>>>>>>>>> SCHWARZ-WEIß optimal <<<" 'eigentlicher Code '("SendKeys" muß bei integriertem Dlg VOR Dlg-Aufruf erfolgen!!!): SendKeys "%e%co%e{UP 13}{DOWN}{RIGHT 2}{DOWN}{UP 5}~{LEFT}{DOWN 2}{RIGHT 2}h{LEFT}{DOWN}{RIGHT 2}a{LEFT}{DOWN}{RIGHT}m{LEFT}{DOWN}{RIGHT}a~~" With Application .Dialogs(xlDialogPrint).Show 2, , 1, 1, , , , , , , , 2, , 0, 0 .StatusBar = False .DisplayStatusBar = stat_bar End With Exit Sub F: Beep End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
hu Mitglied -
Beiträge: 7 Registriert: 13.10.2003
|
erstellt am: 03. Nov. 2003 17:55 <-- editieren / zitieren --> Unities abgeben:
Hallo kd, danke für Deine Unterstützung. Habe schon erste Erfolge! Falls Dir noch eine Lösung zu Punkt drei meiner Frageliste einfällt, lass es mich wissen. Nochmals vielen Dank gruss hu
------------------ - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
kd Mitglied Lehrkraft
Beiträge: 40 Registriert: 06.06.2003
|
erstellt am: 05. Nov. 2003 07:40 <-- editieren / zitieren --> Unities abgeben: Nur für hu
|