Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  A1 bzw A0 Plot über Makro (Icon) auslöen

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:  A1 bzw A0 Plot über Makro (Icon) auslöen (1919 mal gelesen)
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: 26. Aug. 2003 13:15    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 !

Habe folgendes Problem:

Würde gerne einen A0 bzw. A1 - Plot über ein Makro auslösen.

1. Es soll der entsprechende Drucker ausgewählt werden
2. Farbe oder schwarz/ weiss festgelegt werden
3. Maßstab 1:1
4. Querformat bzw. Hochformat
5. Blattformat A4 bis A0

Alle Einstellungen bekomme ich angesteuert nur bei den Blattformat habe ich ein Problem

kpapersize geht nur bis A2

und wenn ich über

oPrintMgr.PaperSize = kPaperSizeCustom
'zb. Für A1
oPrintMgr.PaperHeight = 35  ' Masse in cm
oPrintMgr.PaperWidth = 48

werden diese Werte von Höhe und Breite nicht übernommen und es wird das Format A4 eingestellt.

Frage wie kann ich mittels eines Makros dieses Format einstellen ????


Mein lauffähiges Makro sieht wiefolgt aus:

Private Sub HP_designjet_750_Click()
On Error Resume Next
Dim oPrintMgr As DrawingPrintManager
Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager

oPrintMgr.Printer = "HP DesignJet 750C (E/A0) Color"  +++++Hier eigenen Druckernamen eintragen
oPrintMgr.ColorMode = kPrintGrayScale
oPrintMgr.ScaleMode = kPrintCustomScale
oPrintMgr.Orientation = kPortraitOrientation
++++++++++++++++++++++++++++++++++++++++++++++
Problemzone????????????????????

oPrintMgr.PaperSize = kPaperSizeA4
oPrintMgr.PaperSize = kPaperSizeCustom
'zb. Für A1 =  594x841 mm
oPrintMgr.PaperHeight = 85  '  Masse in cm
oPrintMgr.PaperWidth = 60
+++++++++++++++++++++++++++++++++++++++++++++

oPrintMgr.SubmitPrint

Exit sub

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

Julius
Mitglied
Projektleiter


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

Beiträge: 289
Registriert: 10.06.2003

erstellt am: 03. Sep. 2003 07:37    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 VOSTA1 10 Unities + Antwort hilfreich

Hi!

Ich hab ein ähnliches Problem mit meinem Macro (bei mir wählt der Drucker immer das Falsche Papierfach).

Meine Lösung (nicht gerade schön aber funktioniert)
Erstelle für jeden Druckformat einen Drucker (DIN A4 hat man normal ja einen Drucker). D.h. man erstellt z.B. einen Drucker mit Namen DINA1 wo alles auf DINA1 eingestellt ist (Hier in meinem Script welches aus der IV Hilfe kommt mit dem Druckernamen "A1").

----
Public Sub DruckenA1()

' Set a reference to the print manager object of the active document.
    ' This will fail if a drawing document is not active.
    Dim oPrintMgr As DrawingPrintManager
    Set oPrintMgr = ThisApplication.ActiveDocument.PrintManager
   
    ' Std Farbeinstellung benutzen
    oPrintMgr.ColorMode = kPrintDefaultColorMode
   
    ' Anzahl der Kopien
    oPrintMgr.NumberOfCopies = 1
   
    ' Hochformat
    oPrintMgr.Orientation = kLandscapeOrientation
   
    ' Change the paper size to a custom size.  The units are in centimeters.
    oPrintMgr.PaperSize = kPaperSizeCustom
    oPrintMgr.PaperHeight = 59.4
    oPrintMgr.PaperWidth = 84.1

   
    ' Name des Druckers festlegen
    Dim sPrinterName As String
    sPrinterName = "A1"
    oPrintMgr.Printer = sPrinterName
   

    ' Set to print all sheets.
    oPrintMgr.PrintRange = kPrintAllSheets
   
    ' Set to print full scale.
    oPrintMgr.ScaleMode = kPrintFullScale
   
    ' Submit the print.
    oPrintMgr.SubmitPrint

End Sub

------



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: 03. Sep. 2003 08:49    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

Danke für die Antwort,
so behelfe ich mir zur Zeit schon :

Select Case Blattgröße
    Case "A0": oPrintMgr.Printer = "HP DesignJet 750C-Format-A0": Format1 = "A0": Format2 = "Querformat"
    Case "A1": oPrintMgr.Printer = "HP DesignJet 750C-Format-A1": Format1 = "A1": Format2 = "Querformat"
    Case "A2": oPrintMgr.Printer = "HP DesignJet 750C-Format-A2": Format1 = "A2": Format2 = "Querformat"
    Case "A3": oPrintMgr.Printer = "HP DesignJet 750C-Format-A3": Format1 = "A3": Format2 = "Querformat"
    Case "A4": oPrintMgr.Printer = "\\VLUS104\iR8500": Format1 = "A4": Format2 = "Hochformat": oPrintMgr.Orientation = kPortraitOrientation: oPrintMgr.PaperSize = kPaperSizeA3: MsgBox ("A4 M=1:1 wird auf Canon s/w Kopierer umgeleitet, geringerer Verschnitt!")
End Select

sPrinterName = oPrintMgr.Printer
oPrintMgr.NumberOfCopies = 1
oPrintMgr.ScaleMode = kPrintFullScale
oPrintMgr.ColorMode = kPrintGrayScale

Leider  hat es den Nachteil, das z.B bei 10 Benutzern insgesamt 50 Drucker installiert werden müßen mit exakten Angaben, die nicht verändert werden dürfen. Leider verstellt immer wieder jemand etwas.


Falls jemand eine andere Lösung hat bitte ich weiterhin um Antwort.

MfG

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. Okt. 2003 16:25    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  VBA Forum!

Thema immer noch aktuell!

Hat wirklich keiner eine Lösung parat. Das mit dem 5 Druckern unter Windows funktioniert.
Kann man die Drucker auch mittels eines Makros, Batchdatei oder einer exportierten Regestrierungdatei installieren. Wer hat Erfahrung damit?
MFG


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

Charly Setter
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 11977
Registriert: 28.05.2002

Trau keiner Diva unter SP2....

erstellt am: 06. Okt. 2003 20:11    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 VOSTA1 10 Unities + Antwort hilfreich

Hi.

Wenn ich das richtig mitbekommen habe gibt´s im IV einen Bug, der Papiergrößeneinstellungen > A2 per APIProgrammier- und Anwendungsschnittstelle (Application Programming Interface) verhindert. Ob der Fehler mit Diva 8 beseitigt wird, keine Ahnung.

Dir bleibt also nur der o.a. Workaround. Etwas einfacher wird´s wenn Du für Blattgrößen bis A2 die Papiergröße via APIProgrammier- und Anwendungsschnittstelle (Application Programming Interface) einstellts und darüber auf die Druckerlösung umsteigst.

lg Mathias

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

BernhardU
Mitglied
Techniker / Konstrukteur / Student


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

Beiträge: 328
Registriert: 17.08.2005

Windows XP SP3
IV Prof 2012
VS 2010

erstellt am: 02. Aug. 2006 10: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 Nur für VOSTA1 10 Unities + Antwort hilfreich

Hi zusammen!
Habe auch noch im IV10 das Problem mit A0 A1 und A2 und den übergrößen!
Kann auch keine benutzerdefinierte größe eingeben!
Irgend etwas läuft da nicht so ganz richtig! -> Bug!!

Die werte werden dem Drucker nicht richtig zugewiesen!!

mfg Bernhard

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