Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Automatsich A4/A3

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
  
PDM System exakt anpassen an Anwenderforderungen (GAIN Collaboration,PDM,PDM System,PLM,PLM System)
Autor Thema:  Automatsich A4/A3 (2913 mal gelesen)
Bud87
Mitglied



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

Beiträge: 157
Registriert: 11.09.2008

Catia V5 R17
Autodesk Inventor 2017
Windows Vista 32bit

erstellt am: 17. Mai. 2011 08:10    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 arbeite mit A4 und mit A3 Arbeitsblattformaten. Bei Mechanical wird das Druckformat automatisch erkannt und weitergegeben. Bei Inventor muss ich das Format immer manuell auf A3 einstellen damit er das richtige Format auch druckt. Ist es möglich das dies automatisch geht?

Danke

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

freierfall
Ehrenmitglied V.I.P. h.c.
Techniker



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

Beiträge: 11547
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2022

erstellt am: 17. Mai. 2011 09:12    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 Bud87 10 Unities + Antwort hilfreich

Hallo,

automatisch können es folgende.
- PSP (Compass) der Jobserver
- Vault anscheinend auch, habe es bisher noch nicht gesehen.
- fx64.de diese Plottool

per verschiedenen Knöpfe
- kwikprints unter ICode

sei herzlich gegrüsst Sascha Fleischer

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

Husky
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 5718
Registriert: 10.07.2002

No Sysinfo

erstellt am: 17. Mai. 2011 09:52    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 Bud87 10 Unities + Antwort hilfreich

Hallo,

einfach verschiedene Drucker installieren und die gewünschten Blattformate voreinstellen.

Vereinfacht die Sache, aber immer noch kein vollständiger Automatismus.

Grüße

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

muellc
Ehrenmitglied V.I.P. h.c.
ICT Specialist



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

Beiträge: 3501
Registriert: 30.11.2006

Inventor 2017.4.12 64 bit
Windows 10 Enterprise 64 bit
3DEXPERIENCE R2016x
--------------------
HP Z-Book 15 G4
32 Gig Ram
NVIDIA Quadro M2200
2x HP E243i

erstellt am: 17. Mai. 2011 10: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 Bud87 10 Unities + Antwort hilfreich

Hallo,

automatisch gehts nicht, aber du kannst dir verschiedene Makros mit dne voreingestellten Blattformaten anlegen.

Code:

    'Get the active document and check whether it is a drawing document
    If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
        Exit Sub
    End If
   
    Dim oDrgDoc As DrawingDocument
    Set oDrgDoc = ThisApplication.ActiveDocument
       
    ' Set reference to drawing print manager
    ' DrawingPrintManager has more options than PrintManager
    ' as it's specific to drawing document
       
    Dim oDrgPrintMgr As DrawingPrintManager
    Set oDrgPrintMgr = oDrgDoc.PrintManager
       
       
       
       
    '----------------------------------------------------------------------------------
    ' Set the printer name
    ' comment this line to use default printer or assign another one
    '----------------------------------------------------------------------------------
    ' oDrgPrintMgr.Printer = "Kyocera Mita KM-1650 KX"
       
       
       
       
    '----------------------------------------------------------------------------------
    ' Set the printers ColorMode
    '----------------------------------------------------------------------------------
    ' kPrintColorPalette        Print using color
    ' kPrintDefaultColorMode    Default setting for color mode
    ' kPrintGrayScale          Print using a gray scale
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.ColorMode = kPrintDefaultColorMode
       
       
       
       
    '----------------------------------------------------------------------------------
    ' Set the printers scale-mode
    '----------------------------------------------------------------------------------
    ' kPrintBestFitScale    Print using a best-fit scale for the Drawing
    ' kPrintCurrentWindow    Print the contents of the window as-is
    ' kPrintCustomScale      Print usign the custom scale specified elsewhere
    ' kPrintFullScale        Print using full scale of the Drawing
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.ScaleMode = kPrintBestFitScale
       
       
       
    '----------------------------------------------------------------------------------
    ' Gets/Sets the scale of the print.
    ' Meaningless when the ScaleMode is not kPrintCustomScale
    '
    ' if you need to plot as drawing as 1/4 scale, this property should be set to 0.25.
    ' If you need to plot at twice the scale this property should be set to 2.
    ' If the paper is smaller than the specified sheet size, a portion of the sheet will not print.
    '
    '----------------------------------------------------------------------------------
    Dim dScale As Double
    dScale = 1
    oDrgPrintMgr.[Scale] = dScale
       
       
       
    '----------------------------------------------------------------------------------
    ' Set the paper size.
    '----------------------------------------------------------------------------------
    ' kPaperSize10x14
    ' kPaperSize11x17
    ' kPaperSizeA2
    ' kPaperSizeA3
    ' kPaperSizeA4
    ' kPaperSizeA4Small
    ' kPaperSizeA5
    ' kPaperSizeB4
    ' kPaperSizeB5
    ' kPaperSizeCSheet
    ' kPaperSizeCustom
    ' kPaperSizeDefault
    ' kPaperSizeDSheet
    ' kPaperSizeESheet
    ' kPaperSizeExecutive
    ' kPaperSizeFolio
    ' kPaperSizeLedger
    ' kPaperSizeLegal
    ' kPaperSizeLetter
    ' kPaperSizeQuarto
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.PaperSize = kPaperSizeA3
   
   
   
   
    '----------------------------------------------------------------------------------
    ' Change the paper size to a custom size.  The units are in centimeters.
    ' only valid if PaperSize is set to custom size
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.PaperHeight = 15
    oDrgPrintMgr.PaperWidth = 10
   
       
       
       
    '----------------------------------------------------------------------------------
    ' Set the orientation
    '----------------------------------------------------------------------------------
    ' kDefaultOrientation
    ' kLandscapeOrientation
    ' kPortraitOrientation
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.Orientation = kLandscapeOrientation
   
       
    '----------------------------------------------------------------------------------
    ' Read-write property that gets and sets whether the drawing should be
    ' rotated 90 degrees when printed. This property only applies to drawing documents.
    ' It is initialized to False.
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.Rotate90Degrees = False
   

    '----------------------------------------------------------------------------------
    ' Read-write property that gets and sets which sheets to print.
    '
    ' kPrintCurrentSheet    the active sheet will be printed.
    ' kPrintAllSheets        all sheets will be printed.
    ' kPrintSheetRange      the sheets defined using SetSheetRange will be printed.
    '
    '----------------------------------------------------------------------------------
    oDrgPrintMgr.PrintRange = kPrintAllSheets
   
   
    '----------------------------------------------------------------------------------
    ' Get and set the current sheet range.
    '----------------------------------------------------------------------------------
    ' Dim iFromSheet As Long
    ' Dim iToSheet As Long
    ' Call oDrgPrintMgr.GetSheetRange(iFromSheet, iToSheet)
    ' MsgBox "Current sheet range is " & iFromSheet & " to " & iToSheet & Chr(13) & _
            "Setting to print sheets 1-2."
       
    '----------------------------------------------------------------------------------
    ' Change the print range to print sheets 1 through 2.
    '----------------------------------------------------------------------------------
    ' oDrgPrintMgr.PrintRange = kPrintSheetRange
    ' Call oDrgPrintMgr.SetSheetRange(1, 2)
   
   
   
       
    ' Change the number of copies to 1.
    Dim iNumberOfCopies As Long
    iNumberOfCopies = 1
    oDrgPrintMgr.NumberOfCopies = iNumberOfCopies
   

       
    ' Submit the print.
    oDrgPrintMgr.SubmitPrint



------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

Harry G.
Ehrenmitglied V.I.P. h.c.
one-man-show



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

Beiträge: 4585
Registriert: 24.01.2003

PDSP2014.1.3; W7.1-64
E3-1240, 16 GB
Quadro K2000

erstellt am: 17. Mai. 2011 14:03    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 Bud87 10 Unities + Antwort hilfreich

Einen hab ich auch noch: ivPrint

Vermutlich kann die Stapeldruckfunktion der Aufgabenplanung von Inventor das immer noch nicht.

------------------
Grüße von Harry

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

SEHER
Mitglied
Systemanalytiker


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

Beiträge: 1203
Registriert: 13.03.2001

Inventor 2 bis 2022
häufig wechselnder Rechnerverkehr

erstellt am: 18. Mai. 2011 17: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 Bud87 10 Unities + Antwort hilfreich

Zitat:
Einen hab ich auch noch

...ich auch http://www.inventor-tools.de/Index_Zusatzmodule.html#batchplot

------------------
Gruß
SEHER
www.inventor-tools.de

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)2024 CAD.de | Impressum | Datenschutz