Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  IDW in Schwarz/Weiß drucken

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:  IDW in Schwarz/Weiß drucken (1078 mal gelesen)
ChristianS
Mitglied
Leiter Kundenbetreuung


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

Beiträge: 635
Registriert: 27.09.2000

erstellt am: 14. Jul. 2004 15:33    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

Hi,

hat jemand von euch schon mal versucht eine farbige IDW über die APIProgrammier- und Anwendungsschnittstelle (Application Programming Interface) Schwarz/Weiß auszudrucken ?
Ich bin auf der Suche nach etwas ähnlichem wie in ACAD mit den Stifzuweisungen

Bin für jeden Tip dankbar.

Gruß

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

Tobsen
Mitglied
IT -Systemkaufmann


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

Beiträge: 555
Registriert: 14.06.2002

AIP 8/9/10/11/12-beta
Vault 5
Inventor-Tools
Intel Pentium4 650/3,4GHz
2GB Ram 533MHz DDR2
ATI FireGL V5000 128B
SpaßPilot

erstellt am: 14. Jul. 2004 15:36    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 ChristianS 10 Unities + Antwort hilfreich

Hi,
das müsste man doch direkt im Systemdrucker einstellen können, oder?


Gruß
Tobsen

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

ChristianS
Mitglied
Leiter Kundenbetreuung


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

Beiträge: 635
Registriert: 27.09.2000

erstellt am: 14. Jul. 2004 15:40    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

Hi,
Ne leider nicht. Die Dateien sollen auf einem kleinen Drucker ausgegeben werden. Da gibt es im Treiber keine Möglichkeit der Einstellung.

Gruß
Christian

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

VOSTA1
Mitglied
techn. Angestellter


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

Beiträge: 108
Registriert: 23.12.2002

erstellt am: 06. Sep. 2004 10:28    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 ChristianS 10 Unities + Antwort hilfreich

Hallo,
vieleicht geht es damit????

++++++++++++++++++++++++++++++++++++
Private Sub schwarzweißk()


Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager

'Drucker festlegen
Dim sPrinterName As String
sPrinterName = "xxxxxxxxxxxxxxxxx"  ' hier Druckername eintragen wie angezeigt wenn man Drucker manuell auswählt

MsgBox sPrinterName

oPrintMgr.Printer = sPrinterName

oPrintMgr.AllColorsAsBlack = True

'oPrintMgr.Rotate90Degrees = False  ' Falls benötigt

oPrintMgr.ColorMode = kPrintGrayScale


oPrintMgr.SubmitPrint


End Sub

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

ChristianS
Mitglied
Leiter Kundenbetreuung


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

Beiträge: 635
Registriert: 27.09.2000

erstellt am: 17. Sep. 2004 11:18    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

Hi,
danke für die Anregung, jedoch hat das auch nicht zu dem gew. Ergebnis geführt, da dabei dann die Linien in Graustufen ausgegeben wurden. Bei hellgelben Linien sah der Ausdruck ebenfalls bescheiden aus.

Ich habe jetzt die Datei über den DWF Viewer ausgedruckt... der kann's nämlich ;-). Nur komisch dass es die Entwickler noch nicht geschafft haben so einen Schalter auch im Inventor zu implementieren.

Gruß
Christian

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

VOSTA1
Mitglied
techn. Angestellter


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

Beiträge: 108
Registriert: 23.12.2002

erstellt am: 23. Sep. 2004 12:41    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 ChristianS 10 Unities + Antwort hilfreich

Hallo,

mit welcher  Inventor Version arbeiten Sie?

ab Inventor 8 ist der Schalter alle Farben als Schwarz im Druckmenü

und dieser kann mit dem APIProgrammier- und Anwendungsschnittstelle (Application Programming Interface) Befehl

oPrintMgr.AllColorsAsBlack = True  (siehe mein Beispiel)

gesetzt werden.

MFG

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

ChristianS
Mitglied
Leiter Kundenbetreuung


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

Beiträge: 635
Registriert: 27.09.2000

erstellt am: 23. Sep. 2004 14:39    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

Hi,

danke für den Tip. Das mit dem ColorsAsBlack hatte ich ganz übersehen.
Entwickelt ist das ganze für den 7er. Den 8er überspringen wir und werden gegen Ende des Jahres auf den 9er wechseln. Dann werde ich das Skript zum drucken aus dem Inventor heraus wieder aktivieren, den neuen Schalter mit einbauen und den DWf Viewer im Programm auskommentieren.

Danke,
Christian
Units sind unterwegs.

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