Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Wert aus Textbox verwenden

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:  Wert aus Textbox verwenden (2415 mal gelesen)
dero2k
Mitglied
Technicher Zeichner ma bau


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

Beiträge: 53
Registriert: 24.04.2009

Inventor 2008 (hauptsächlich)
win xp

erstellt am: 14. Okt. 2011 10: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

Hi

ich habe mir ein multi plot script gebaut. Funktioniert soweit auch schon supper.

allerdings hätte ich gerne noch eine abfrage ob er den multi plot nur einmal oder mehrmals ausführen soll.

habe mir jetzt ein userform gebastelt mit einer textbox und möchte das der wert den man in die textbox eingibt im script übernommen wird.

mein code des userforms sieht folgendermaßen aus

Code:

Private Sub CommandButton1_Click()
Unload UserForm1

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub OK_Click()

Unload UserForm1
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub


und hier das script

Code:

Sub KombiA3()
    PDF
    DruckenA3
End Sub
Sub KombiA4()
    PDF
    DruckenA4
End Sub

Public Sub PDF()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "PDFCreator"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
                'oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
                AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                invDocument.Save
        End Select
        oDrgPrintMgr.SubmitPrint
    End If
    End Sub
   
Public Sub DruckenA3()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "TOSHIBA e-STUDIO4520CSeriesPCL6"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        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
    End If
End Sub
Public Sub DruckenA4()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "TOSHIBA e-STUDIO4520CSeriesPCL6"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        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
    End If
End Sub

Public Sub stueli()
ChDir "C:\Users\Public\Documents\Autodesk\"
Call Shell("C:\Users\Public\Documents\Autodesk\1.cmd", 1)
End Sub

Private Sub PrintAll()

Dim oDoc As Document
For Each oDoc In ThisApplication.Documents
If oDoc.DocumentSubType = kDrawingDocument Then
     
        ' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "TOSHIBA e-STUDIO4520CSeriesPCL6"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        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
    End If

Next
End Sub

Sub test()

    Dim oapp As Inventor.Application
    Dim oDocument As Inventor.Document
    Set oapp = ThisApplication

    If oapp.ActiveDocument Is Nothing Then
        MsgBox "Kein Dokument geöffnet"
        Exit Sub
    End If

    For Each oDocument In oapp.Documents.VisibleDocuments
        If oDocument.DocumentType = kDrawingDocumentObject Then
            'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "PDFCreator"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
                'oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
                AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                invDocument.Save
        End Select
        oDrgPrintMgr.SubmitPrint
        End If
    Next
 

End Sub


Public Sub DruckenA3Multi()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
 
    Dim oapp As Inventor.Application
    Dim oDocument As Inventor.Document
    Set oapp = ThisApplication

    If oapp.ActiveDocument Is Nothing Then
        MsgBox "Kein Dokument geöffnet"
        Exit Sub
    End If

 
    For Each oDocument In oapp.Documents.VisibleDocuments
        If oDocument.DocumentType = kDrawingDocumentObject Then
            oDocument.Activate
           
           

        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 = "TOSHIBA e-STUDIO4520CSeriesPCL6"
       


        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA0DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select

        'Set the paper orientation
        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.NumberOfCopies = "UserForm1.TextBox1.Text"
        oDrgPrintMgr.SubmitPrint

        End If
    Next
End Sub


Sub Multi()

UserForm1.Show  '"UserForm1"

  PDFMULTI
  DruckenA3Multi

End Sub


Public Sub PDFMULTI()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
 
    Dim oapp As Inventor.Application
    Dim oDocument As Inventor.Document
    Set oapp = ThisApplication

    If oapp.ActiveDocument Is Nothing Then
        MsgBox "Kein Dokument geöffnet"
        Exit Sub
    End If

 
    For Each oDocument In oapp.Documents.VisibleDocuments
        If oDocument.DocumentType = kDrawingDocumentObject Then
            oDocument.Activate

        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 = "PDFCreator"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
                'oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
                AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                invDocument.Save
        End Select
        oDrgPrintMgr.SubmitPrint
        End If
    Next
End Sub


es wird das script Multi aufgerufen was dann zuerst das userform startet

in dem script DruckenA3Multi

soll an dieser stelle der die zahl 1 durch den eingegebenen wert ersetzt werden

Code:

oDrgPrintMgr.NumberOfCopies = 1


währe sehr dankbar wenn mir jemand helfen könnte

und noch ne kleinigkeit die ich auch noch nicht hinbekommen habe das wenn man in dem fenster keinen wert eingibt sondern abbrechen drückt der plot auftrag auch nicht weiter ausgeführt wird.

Danke schonmal

Dero


[/code]

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

noctis79
Mitglied
Konstrukteur/ CAD-Administrator


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

Beiträge: 164
Registriert: 07.10.2009

Inventor Pro 2017
Cideon Workspace

erstellt am: 14. Okt. 2011 12:35    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 dero2k 10 Unities + Antwort hilfreich

Hi,

Code:

Dim oNumberofCopies as Integer
if textbox1.text = "" then
oNumberofCopies = 1
else
if IsNumeric(textbox1.text) then
    oNumberofCopies = textbox1.text
else
msgbox "Nur Zahlenwerte erlaubt!"
exit sub
end if
end if

if oNumberofCopies > 5 then
msgbox "Erlaubte Anzahl der Kopien überschritten!"
exit sub
end if


oDrgPrintMgr.NumberOfCopies = oNumberofCopies

Dein Ansatz ist schon richtig wenn Du in der
Number ofCopies = die "" weglässt...

Vorgehensweise zu den Userforms:

Neue Userform anlegen und Buttons und Felder einfügen.
Doppelklick auf den OK Button;
Bei Private Sub CommandButton1_Click()die Sub aufrufen die Du willst
(z.B.Kombi A3());
Neues Modul anlegen;
z.B. Public Sub oKombiA3;
Hier den Aufruf der UserForm rein: UserForm1.show;
Dieses Modul kannst Du dann mit Bild als Knöpfle im IV einbauen.

P.s. für die PDF- Erstellung schau Dir mal die SaveAs Funktion an. Dafür brauchst Du keinen Extra Drucker mehr...

[Diese Nachricht wurde von noctis79 am 14. Okt. 2011 editiert.]

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

dero2k
Mitglied
Technicher Zeichner ma bau


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

Beiträge: 53
Registriert: 24.04.2009

Inventor 2008 (hauptsächlich)
win xp

erstellt am: 14. Okt. 2011 12:46    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 schonmal für die schnelle antwort 

ja das mit dem save as hab  ich auch schon gesehen.

allerdings stammt das script noch aus iv 2008 zeiten und ich würde es gerne schon so belassen fals man doch mal nochmal mit 2008 arbeiten muss.

funktioniert auch soweit supper

werde mir das mit dem script gleich mal angucken wenn ich zeit hab

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

dero2k
Mitglied
Technicher Zeichner ma bau


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

Beiträge: 53
Registriert: 24.04.2009

Inventor 2008 (hauptsächlich)
win xp

erstellt am: 18. Okt. 2011 14:20    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

also habe das ganze jetzt mal ausprobiert das mit dem abbrechen funktioniert jetzt und er führt die scripts nurnoch aus wenn ich auf ok drücke

allerdings wird egal was ich eingebe immernoch nur 1x gedruckt :-(

hier nochmal mein code villeicht findet ihr ja den fehler

Code:

Private Sub CommandButton1_Click()
Unload UserForm1

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub OK_Click()
PDFMULTI
  DruckenA3Multi
Unload UserForm1
End Sub

Private Sub TextBox1_Change()
Dim oNumberofCopies As Integer
If TextBox1.Text = "" Then
oNumberofCopies = 1
Else
If IsNumeric(TextBox1.Text) Then
    oNumberofCopies = TextBox1.Text
Else
MsgBox "Nur Zahlenwerte erlaubt!"
Exit Sub
End If
End If

If oNumberofCopies > 5 Then
MsgBox "Erlaubte Anzahl der Kopien überschritten!"
Exit Sub
End If
End Sub

Private Sub UserForm_Click()

End Sub


Code:

Sub KombiA3()
    PDF
    DruckenA3
End Sub
Sub KombiA4()
    PDF
    DruckenA4
End Sub

Public Sub PDF()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "PDFCreator"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
                'oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
                AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                invDocument.Save
        End Select
        oDrgPrintMgr.SubmitPrint
    End If
    End Sub
   
Public Sub DruckenA3()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "TOSHIBA e-STUDIO4520CSeriesPCL6"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        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
    End If
End Sub
Public Sub DruckenA4()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "TOSHIBA e-STUDIO4520CSeriesPCL6"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        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
    End If
End Sub

Public Sub TEF_Stüli()
ChDir "C:\Users\Public\Documents\Autodesk\"
Call Shell("C:\Users\Public\Documents\Autodesk\1.cmd", 1)
End Sub

Private Sub PrintAll()

Dim oDoc As Document
For Each oDoc In ThisApplication.Documents
If oDoc.DocumentSubType = kDrawingDocument Then
     
        ' Set the printer name
        ' comment this line to use default printer or assign another one
        oDrgPrintMgr.Printer = "TOSHIBA e-STUDIO4520CSeriesPCL6"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintCustomScale
                oDrgPrintMgr.[Scale] = 1
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        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
    End If

Next
End Sub

Sub test()

    Dim oapp As Inventor.Application
    Dim oDocument As Inventor.Document
    Set oapp = ThisApplication

    If oapp.ActiveDocument Is Nothing Then
        MsgBox "Kein Dokument geöffnet"
        Exit Sub
    End If

    For Each oDocument In oapp.Documents.VisibleDocuments
        If oDocument.DocumentType = kDrawingDocumentObject Then
            'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
    If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
   
        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 = "PDFCreator"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
                'oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
                AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                invDocument.Save
        End Select
        oDrgPrintMgr.SubmitPrint
        End If
    Next
 

End Sub


Public Sub DruckenA3Multi()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
 
    Dim oapp As Inventor.Application
    Dim oDocument As Inventor.Document
    Set oapp = ThisApplication

    If oapp.ActiveDocument Is Nothing Then
        MsgBox "Kein Dokument geöffnet"
        Exit Sub
    End If

 
    For Each oDocument In oapp.Documents.VisibleDocuments
        If oDocument.DocumentType = kDrawingDocumentObject Then
            oDocument.Activate
           
           

        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 = "TOSHIBA e-STUDIO4520CSeriesPCL6"
       


        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA0DrawingSheetSize
               
                oDrgPrintMgr.PaperSize = kPaperSizeA3
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select

        'Set the paper orientation
        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.NumberOfCopies = UserForm1.TextBox1.Text
        oDrgPrintMgr.SubmitPrint

        End If
    Next
End Sub


Sub Multi()
UserForm1.Show  '"UserForm1"

End Sub


Public Sub PDFMULTI()
    'Print all sheets in drawing document
    'Get the active document and check whether it's drawing document
 
    Dim oapp As Inventor.Application
    Dim oDocument As Inventor.Document
    Set oapp = ThisApplication

    If oapp.ActiveDocument Is Nothing Then
        MsgBox "Kein Dokument geöffnet"
        Exit Sub
    End If

 
    For Each oDocument In oapp.Documents.VisibleDocuments
        If oDocument.DocumentType = kDrawingDocumentObject Then
            oDocument.Activate

        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 = "PDFCreator"
   
        oDrgPrintMgr.PrintRange = kPrintAllSheets
        'Set the paper size and scale
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Size
            Case kA4DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA3DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA2DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case kA1DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
                'oDrgPrintMgr.Orientation = oDrgDoc.ActiveSheet.Orientation
            Case kA0DrawingSheetSize
                oDrgPrintMgr.PaperSize = kPaperSizeA4
                oDrgPrintMgr.ScaleMode = kPrintBestFitScale
                oDrgPrintMgr.[Scale] = 1
                oDrgPrintMgr.AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültiges Papierformat"
        End Select
   
        'Set the paper orientation
        On Error Resume Next
        Select Case oDrgDoc.ActiveSheet.Orientation
            Case kLandscapePageOrientation
                oDrgPrintMgr.Orientation = kLandscapeOrientation
            Case kPortraitPageOrientation
                oDrgPrintMgr.Orientation = kPortraitOrientation
                AllColorsAsBlack = True
            Case Else    ' Andere Werte.
                Debug.Print "ungültige Orientierung"
                invDocument.Save
        End Select
        oDrgPrintMgr.SubmitPrint
        End If
    Next
End Sub


Public Sub Streamline()
ChDir "C:\Program Files (x86)\ProjectPoint-2011"
Call Shell("C:\Program Files (x86)\ProjectPoint-2011\ProjectPoint.exe", 1)
End Sub


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

noctis79
Mitglied
Konstrukteur/ CAD-Administrator


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

Beiträge: 164
Registriert: 07.10.2009

Inventor Pro 2017
Cideon Workspace

erstellt am: 18. Okt. 2011 20:58    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 dero2k 10 Unities + Antwort hilfreich

oDrgPrintMgr.NumberOfCopies = oNumberofCopies
vor
oDrgPrintMgr.SubmitPrint
einfügen?
Wenn das nicht funktioniert probier mal folgendes:
Anpassungen:

Dein Private Sub OK_Click()
Gegen das unten aufgeführte austauschen.

Die Zeile

Public Sub DruckenA3Multi()

gegen

Public Sub DruckenA3Multi(ByVal oNumberofCopies As Integer)

austauschen (Das Gleiche für PDFMulti).

Aufruf vor SubmitPrint:
oDrgPrintMgr.NumberOfCopies = oNumberofCopies


Code:

Private Sub OK_Click()
Dim oNumberofCopies As Integer
If TextBox1.text = "" Then
oNumberofCopies = 1
Else
If IsNumeric(TextBox1.text) Then
    oNumberofCopies = TextBox1.text
Else
MsgBox "Nur Zahlenwerte erlaubt!"
Exit Sub
End If
End If

If oNumberofCopies > 5 Then
MsgBox "Erlaubte Anzahl der Kopien überschritten!"
Exit Sub
End If
    PDFMULTI (oNumberofCopies)
    DruckenA3Multi (oNumberofCopies)
Unload UserForm1
End Sub


[Diese Nachricht wurde von noctis79 am 18. Okt. 2011 editiert.]

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

dero2k
Mitglied
Technicher Zeichner ma bau


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

Beiträge: 53
Registriert: 24.04.2009

Inventor 2008 (hauptsächlich)
win xp

erstellt am: 19. Okt. 2011 09: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

vielen dank für die schnellen antworten immer

klappt jetzt alles wunderbar 

hab jetzt sogar eine exe erstellt um es easy auf andere rechner zu bekommen

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

noctis79
Mitglied
Konstrukteur/ CAD-Administrator


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

Beiträge: 164
Registriert: 07.10.2009

Inventor Pro 2017
Cideon Workspace

erstellt am: 19. Okt. 2011 12:23    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 dero2k 10 Unities + Antwort hilfreich

Ist doch schön 
Aber teil die Sub´s beim nächsten mal bitte etwas mehr auf
(auf einzelne Module).
Macht die Sache etwas übersichtlicher...

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

dero2k
Mitglied
Technicher Zeichner ma bau


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

Beiträge: 53
Registriert: 24.04.2009

Inventor 2008 (hauptsächlich)
win xp

erstellt am: 19. Okt. 2011 12: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

ok werde ich beim nächstenmal versuchen.

arbeite ja nur nebenbei an vba projekten und muss mir alles selber bei bringen.

aber wenn ich nochmal etwas mache versuch ich es übersichtlicher zu gestalten.

ist auf jeden fall ein interessantes thema

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