Printen van verborgen tabblad

[gerenmarly]

Hoi
Mijn bedoeling is om een tabblad uit te printen die verborgen is
in dit geval Blad 2
dit gebeurd dan vanuit Blad 1 door middel van de knop
is dit mogelijk

Ger

 

[gast0660]

Hoi,
Met deze mischien?
PrintPreview moet ja het testen veranderen in PrintOut
In bijlage
Groet

 

[Cobbe]

Test deze eens:

Sub print_verborgene()
With Application
 .ScreenUpdating = False
  With Sheets("Blad2")
    .Visible = True
    .Range("A1:H10").PrintPreview
    .Visible = False
   End With
 .ScreenUpdating = True
End With
End Sub

Wel staat deze op PrintPreview --> dus wijzigen in Printout bij effectief printen.

 

[gerenmarly]

hoi gast0660 en Cobbe

Zij werken allebei
Die van cobbe heb ik toegepast
mijn dank is groot

Alleen een vraagje nog
hij moet het formulier op blad2 3x printen

Groetjes Ger

 

[Cobbe]

.Range("A1:H10").PrintOut, Copies:=3

 

[gerenmarly]

Hoi Cobbe
Ik heb het laatste toegepast, zie code zoals die zou moeten werken

Sub print_verborgene()
Dim zeker As Variant
zeker = MsgBox("                    Formulier los maken en ondersteboven met onderzijde eerst                                       in printer(wit vel in het midden)", vbOKCancel, "                        Afdrukken ")
If zeker = vbCancel Then Exit Sub

With Application
 .ScreenUpdating = False
  With Sheets("Reparatieopdracht (2)")
    .Visible = True
    .PrintOut Copies:=3
    .Visible = False
   End With
 .ScreenUpdating = True
End With
End Sub

Nu als de printer niet aanstaat gooit hij hem in de wachtrij en blijft het voorbeeld van de print in beeld
als de printer aanstaat dan krijg ik het voorbeeldprint te zien en gaat hij niet verder
Reparatieopdracht (2) is blad 2 en moet geheel worden geprint

Ger

Wat klopt er nog niet

 

[Cobbe]

Test deze eens, deze stopt als de printer niet klaar is:

Sub print_verborgene()
Dim zeker As Variant
On Error GoTo ErrHandler
If GetPDC("\\swi-mps\swi-ips-prn1") = 0 Then
    MsgBox "Kan geen printer vinden :("
    Exit Sub
Else
    
zeker = MsgBox("                    Formulier los maken en ondersteboven met onderzijde eerst                                       in printer(wit vel in het midden)", vbOKCancel, "                        Afdrukken ")
If zeker = vbCancel Then Exit Sub

With Application
 .ScreenUpdating = False
With Sheets(1)                                          'With Sheets("Reparatieopdracht (2)")
    .Visible = True
    .PrinterOut Copies:=3
    .Visible = False
   End With
 .ScreenUpdating = True
End With
End If
 Exit Sub
ErrHandler:
' error handling code
  MsgBox "Er loopt iets fout, doe er wat aan ! "
End Sub