Formulardruck via VBA in Schlaufe

Guten Abend Zusammen

Ich habe eine Tabellenblatt Datenbank und ein Tabellenblatt Formular

Ich möchte jetzt mehrere Formulare ausdrucken, rsp. ein PDF erstellen.
Aktiver Drucker oder Microsoft Print to PDF A4 quer
Schön wäre natürlich wenn es nur eine PDF Datei gibt, speichern in Dokumente oder gleich mit aufpoppender Speichermaske.....
Ausdruckbeispiele habe ich im Tabellenblatt DRUCK

Code Starten über CommandButton1
pro Datenzeile eine Druckseite
Nur die Datenzeile in der Gruppe, wo im Tabellenblatt Formular [E2] definiert ist.
-> Gruppe im Tabellenblatt Datenbank SPALTE A
Vor dem Druck Aktives Bauteil beschriften, im Tabellenblatt Formular [G1]
-> Nr. im Tabellenblatt Datenbank SPALTE B

Excel soll dann dann automatisch die SVerweise von den übrigen Formularfelder aktualisieren.
Tabelle so ohne VBA gelayoutet [J1] [M1] resp. alle Cyan Felder
Anschliessend Drucken in der Schlaufe
(Z.B in der Datenbank wäre somit in der Gruppe 1 -> 3Datensätze, resp. 3 Seiten.

Excel
https://www.herber.de/bbs/user/159613.xlsm

Ist das möglich?

Gruss
Chris Heer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier mal etwas Code, der abhängig von der eingestellten Gruppe die entsprechenden Seiten dru.., äh als PDF speichert.
Ich hab da ne feste Benennung der Dateien aus dem Namen des Excel + Gruppe + Bauteil zusammen gesetzt.
Da musst du halt aufpassen, dass du dir nichts überschreibst.
Der Pfad für die PDFs ist der Default. Da musst du ggf. etwas anderes definieren.
Druckbereich, Seitenformat usw. hab ich nicht eingebaut, das stellst du dir einmal ein und gut.

Private Sub CommandButton1_Click()

    Dim sFile As String, sFileName As String
    Dim rngPrnArray As Range
    Dim rngPart As Range
    Dim rngGroup As Range
    Dim lngPart As Long, lngGroup As Long
    Dim i As Long
        
    Set rngPrnArray = ThisWorkbook.Sheets("Datenbank").Range("A3:B10")
    Set rngGroup = ThisWorkbook.Sheets("Formular").Range("E2")
    Set rngPart = ThisWorkbook.Sheets("Formular").Range("G1")
     
    lngGroup = rngGroup.Value
    
    For i = 1 To rngPrnArray.Rows.Count
        If rngPrnArray.Cells(i, 1) = lngGroup Then
            
            lngPart = rngPrnArray.Cells(i, 2)
            rngPart.Value = lngPart
        
            DoEvents
            
            
            ' set Filename
            sFileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & _
                        "_" & lngGroup & "_" & lngPart & ".pdf"
            sFile = Application.DefaultFilePath & "\" & sFileName

            ' Export to PDF
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=sFile, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
        End If
    Next
    
End Sub

Beliebteste Forumthreads (12 Monate)

Formulardruck via VBA in Schlaufe

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formulardruck via VBA in Schlaufe

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread