Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Inventor 2020 - Drucker VBA

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Inventor 2020 - Drucker VBA (1265 mal gelesen)
Starbuzz
Mitglied



Sehen Sie sich das Profil von Starbuzz an!   Senden Sie eine Private Message an Starbuzz  Schreiben Sie einen Gästebucheintrag für Starbuzz

Beiträge: 60
Registriert: 14.11.2014

erstellt am: 07. Jan. 2020 08:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

ich bin on Inventor 2016 auf 2020 umgestiegen. leider gibt es Probleme bei meinem Drucker Tool.
Die Zeichnung wird soweit ausgedruckt. Leider erkennt man auf dem Ausdruck nur die Ansichten des Modells. Schriftfeld, Bemaßung, Textfelder, Schweißnahtsymbole usw. werden nicht dargestellt!

Weiß einer, ob es bei Inventor 2020 Probelem mit den VBA's gibt und was ich bei meinem Drucker VBA machen kann?

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 07. Jan. 2020 12:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Starbuzz 10 Unities + Antwort hilfreich

Hallo

Das hört sich eher so an, als fehlt die entsprechende Konfiguration. Dein Inventor druckt mit der Option "nur Modellgeometrie" würde ich sagen. Gibt es eine Konfigurationsdatei( .ini, .xml) die das steuert?

EDIT: Kannst du den Code posten?

------------------
MfG
Ralf

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

Starbuzz
Mitglied



Sehen Sie sich das Profil von Starbuzz an!   Senden Sie eine Private Message an Starbuzz  Schreiben Sie einen Gästebucheintrag für Starbuzz

Beiträge: 60
Registriert: 14.11.2014

erstellt am: 07. Jan. 2020 13:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Beispielsweise mein SchwarzweißDruck

Public Sub SWDruck()
   
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
    Dim oDrgDoc As DrawingDocument
    Set oDrgDoc = ThisApplication.ActiveDocument
   
   
    Dim oDrgPrintMgr As DrawingPrintManager
    Set oDrgPrintMgr = oDrgDoc.PrintManager
   
    'Drucker festlegen
    oDrgPrintMgr.Printer = "DRUCKER XYZ"
    oDrgPrintMgr.PrintRange = kPrintAllSheets
   
    'Blattgröße definieren
    On Error Resume Next
    Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.AllColorsAsBlack = True
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.AllColorsAsBlack = True
                oDrgPrintMgr.[Scale] = 1
     End Select
   
    'Orientierung der Zeichnung definieren
    On Error Resume Next
    Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
            Case Else    'Andere Werte.
                Debug.Print "ungültige Orientierung"
    End Select
    oDrgPrintMgr.SubmitPrint 'Zeichnung wird gedruckt
    End If
   
End Sub


[Diese Nachricht wurde von Starbuzz am 07. Jan. 2020 editiert.]


edit*

Von einer ini wüsste ich nichts  Wo finde ich das?

[Diese Nachricht wurde von Starbuzz am 07. Jan. 2020 editiert.]

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 07. Jan. 2020 13:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Starbuzz 10 Unities + Antwort hilfreich

Hallo

Sorry, jetzt war ich auf dem Holzweg. Die Option nur Modellgeometrie gibt's in den Translatoren, nicht im Druck.
Mir ist kein derartiges Verhalten als neues "Feature" für 2020 bekannt. Kann leider selbst nicht testen derzeit.
Kommentiere bitte mal die "On Error resume next", ob es eine brauchbare Fehlermeldung gibt.

------------------
MfG
Ralf

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

Meierjo
Mitglied



Sehen Sie sich das Profil von Meierjo an!   Senden Sie eine Private Message an Meierjo  Schreiben Sie einen Gästebucheintrag für Meierjo

Beiträge: 358
Registriert: 20.08.2003

erstellt am: 08. Jan. 2020 06:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Starbuzz 10 Unities + Antwort hilfreich

Guten morgen

Habe dein Makro mal durchlaufen lassen. Bei mir wird alles korrekt ausgedruckt, inklusive Rand, Bemassung, etc (Makro steuert ja auch nichts anderes).
Was passiert, wenn du über den normalen Druckdialog vom Inventor druckst?
Was für einen Drucker hast du?
Hast du die Möglichkeit, auf einen anderen Drucker zu drucken? Wenn ja, wie ist dort das Ergebnis?
Tritt der Fehler bei allen Formaten (A3 / A4 / Hochformat / Querformat) auf?

Gruss

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

bkrüger
Mitglied
Konstrukteur


Sehen Sie sich das Profil von bkrüger an!   Senden Sie eine Private Message an bkrüger  Schreiben Sie einen Gästebucheintrag für bkrüger

Beiträge: 51
Registriert: 14.09.2014

Win10 IV2018 Vault2018-WG

erstellt am: 07. Feb. 2020 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Starbuzz 10 Unities + Antwort hilfreich

Hallo,
könnte es daran liegen, dass Layer vom Plotten disabled wurden?
Zu finden unter Stil- und Normeneditor/Layer - dort einen beliebigen Layer anklicken, dann siehst du die Layertabelle und in der sollte unter "Plot" kein durchgestrichenes Icon zu sehen sein.
Hinweis: So ist das jedenfalls im Inventor2018 - im 2020er könnte es genau so sein... 

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

bkrüger
Mitglied
Konstrukteur


Sehen Sie sich das Profil von bkrüger an!   Senden Sie eine Private Message an bkrüger  Schreiben Sie einen Gästebucheintrag für bkrüger

Beiträge: 51
Registriert: 14.09.2014

Win10 IV2018 Vault2018-WG

erstellt am: 07. Feb. 2020 12:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Starbuzz 10 Unities + Antwort hilfreich


Alle Layer für das Plotten freischalten:

Code:

Sub SetAllLayersOn()
Dim ix As Long
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
For ix = 1 To oDoc.StylesManager.Layers.Count
    oDoc.StylesManager.Layers(ix).Plot = True
Next
End Sub

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz