Button in Tabelle 1 der Tabelle 2 + 3 skaliert druckt

[Tobias Reißenweber]

Ich bin Betriebsleiter in einer Kornbrennerei/Likörfabrik und möchte das Drucken der Rezepturen erleichtern.

Tabelle 1 enthält die Eingabemaske für die aktuellen Chargen und Mengen der verschiedenen Zutaten meiner Rezeptur. Über sverweis holen sich Tabelle 2 (Druckversion des Rezepts) und Tabelle 3 (internes Chargenblatt zum abheften) die notwendigen Informationen der Eingabemaske. In der Eingabemaske möchte ich einen Button haben der Tabelle 2 und 3 jeweils skaliert auf DIN A4 im Querformat druckt. Das kann nicht schwierig sein - nur wie mache ich das ?

[Steffl]

Hallo Tobias,

versuche es mal so

Code:

Sub prcDrucken()
    Dim lngC As Long
    Dim vntTabellen As Variant
    
    'die Tabellennamen bitte anpassen!
    vntTabellen = Array("Tabelle2", "Tabelle3")
    
    For lngC = 0 To UBound(vntTabellen)
        With Worksheets(vntTabellen(lngC))
            With .PageSetup
                'Spalten und Zeile auf eine Seite anpassen
                .FitToPagesWide = 1
                .FitToPagesTall = 1
                'Querformat
                .Orientation = xlLandscape
                'Din A4
                .PaperSize = xlPaperA4
            End With
            .PrintOut
        End With
    Next lngC
End Sub

[Tobias Reißenweber]

scheint zu klappen. Vielen Dank !

[Rabe]

Hi,

wenn Du an unserem Usertreffen im September teilnimmst, kannst Du uns gerne verschiedene gefüllte Schnaps-/Likör-Flaschen zum Verkosten und Verkaufen mitbringen. :21: :15: