---

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

---

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

---

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

---

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

---

Hallo kd,
Dein Vorschlag tönt vielversprechend. Könntest Du mir einen Codeausschnitt in VBA senden in welchem Du die Keys sendest?

Auf jedenfall vielen Dank
gruss hu

PS: Übrigens ist es möglich die Druckereinstellungen mit einer dll abzufragen, jedoch kann ich sie nicht ändern. http://www.vbarchiv.net/archiv/tipp_782.html

------------------
-

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

---

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

---

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

---

Hallo hu.

Hab durch Zufall noch was zu Deinem Druckerproblem gefunden. Vielleicht kannst Du damit was anfangen. Einen Blick auf die site ist es aber sicherlich wert:
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=183

mfg
kd.

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