Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Drucker ansteuern

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
Autor Thema:  Drucker ansteuern (1684 mal gelesen)
bewnc
Mitglied
Werkzeugmacher

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

Beiträge: 4
Registriert: 23.06.2005

erstellt am: 06. Mrz. 2007 20:07    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 steuere, je nach Blattgröße, verschiedene Drucker in einem Netzwerk mit einem Makro an. Was mir noch fehlt ist die Einstellung "Drucken--> Optionen--> Farbe--> Text auf weißen Hintergrund drucken".

Mit welchem Befehl kann dieser Schalter gesetzt werden?

Gruß
bewnc

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

okl
Mitglied
Wirtsch-Ing (Maschbau)


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

Beiträge: 157
Registriert: 21.04.2006

2x3,6 GHz, 2 GB RAM, NVIDIA Quadro FX 1800, Delmia V5R16 SP1, Win XP Prof SP2, Office, VS 2005, VB 6, Inventor (Test), VBExpress .NET 2005
Adminrechte

erstellt am: 06. Mrz. 2007 20: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 bewnc 10 Unities + Antwort hilfreich

Moin!

Da stellt sich bei mir die Frage:

machst Du's mit VBA, VB, VB.net oder VBScript?

Vielleicht könntest Du ein paar weitere, nicht ganz unerhebliche, Umgebungsmerkmale nennen.

Gruß, Ole

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

bewnc
Mitglied
Werkzeugmacher

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

Beiträge: 4
Registriert: 23.06.2005

erstellt am: 07. Mrz. 2007 12:43    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 Ole,

ich arbeite mit VBA. Hier ein Auszug aus meinem Makro.

Sub CATMain()
On Error GoTo fehler

Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument

Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets

Dim DrwSheet As drawingsheet
Set DrwSheet = DrwSheets.ActiveSheet

Set pageSetup1 = DrwSheet.PageSetup

pageSetup1.Orientation = catPaperPortrait
pageSetup1.LeftMargin = 3.5
pageSetup1.RightMargin = -3.5
pageSetup1.TopMargin = 0
pageSetup1.BottomMargin = 0
pageSetup1.MaximumSize = True
pageSetup1.BannerPosition = catBannerPositionNone
pageSetup1.Quality = catPrintQualityDraft
pageSetup1.color = catColorMonochrome

Papierformate.Show

    If nam = "Rahmen A4 hoch sw.CATDrawing" Then
    pageSetup1.PaperSize = catPaperA4
    pageSetup1.Rotation = CatImageRotation0
    CATIA.ActivePrinter = ATIA.Printers.Item("\\fileserver\Kyocera    Mita FS-6020")
    End If

DrwSheet.PrintOut
Exit Sub

fehler:
End Sub

Gruß
bewnc

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

zoltan.bekesi
Mitglied



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

Beiträge: 321
Registriert: 22.10.2006

Job:
CATIA V5R19 / XP 32bit
MS Office 2003
Microstation V8 2004 Edition
DELL Precision M6300

erstellt am: 16. Jan. 2008 18:32    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 bewnc 10 Unities + Antwort hilfreich

Hallo,

dieses Makro funktioniert eigentlich ganz gut für eine Seite (nach Korrektur der Tippfehler).
Weiß jemand vielleicht auch, wie man gleich mehrere Blätter drucken kann, bzw. würde mir die Möglichkeit über .PrintToFile("datei") mehrere Blätter in eine Datei ausdrucken zu können. Über die normale Oberfläche geht es einwandfrei.

Gruß,
Zoltan

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