Werkbladen samen printen

[Djadan]

Hai mensen ik heb een formulier gemaakt die al 1 werkblad print. Nu wil ik de contactgegevens laten invullen in een ander werkblad en als er op printen wordt gedrukt dat deze automatisch mee wordt geprint.

Kan dit?

Dit is de code die de print actie nu heeft. Het ene blad heet Bluetooth en de ander Gegevens.

Private Sub CommandButton3_Click()
Form.Hide
Application.ScreenUpdating = False
    Dim r As Range
    For Each r In Range("A4:D50") ' Dit is de range waar de nullen kunnen staan
        If r.Value = "" Then
            r.EntireRow.Hidden = True ' Verstoppen van de rij
        Else
            r.EntireRow.Hidden = False ' Zichtbaar maken van de rij
        End If
    Next

    Rows("3:50").Select ' Het gedeelte dat geprint moet worden selecteren
    ActiveWindow.SelectedSheets.PrintOut

    Cells.EntireRow.Hidden = False ' Alle rijen weer zichtbaar maken
    Application.ScreenUpdating = True
    Range("A3").Select ' De cell onder de knop selecteren (gewoon voor het oog)
End Sub

 

[goossenrobert]

misschien dat een oplossing zou kunnen zijn: Als je de ingevulde naam op het andere formulier koppelt aan onzichtbare labels op het af te drukken formulier.

Als je dan af zou drukken, zou je in de procedure afdrukken de labels zichtbaar kunnen maken zodat de naam ook afgedrukt wordt:

een simpel voorbeeld( voor 1 formulier) maar dan met datum en tijd(in plaats van naam):
(label 1 en 2 standaard onzichtbaar)
Private Sub CommandButton1_Click()

Label1.Caption = Date
Label2.Caption = Time

Label1.Visible = True
Label12.Visible = True
MsgBox "Document wordt afgedrukt op: " & _
Application.ActivePrinter

PrintForm

Label1.Visible = False
Label2.Visible = False


End Sub


denkt u dat u nu verder kunt?