Omlouvám se za lamovské dotazy. Stačilo trochu zapřemýšlet. Kdyby to někdo někdy potřeboval:
' Zvětšení formuláře na velikost A4
With UserForm1
.Zoom = "135"
.Height = "770"
.Width = "567"
End With
' Tisk
UserForm1.PrintForm
' Vrácení do původního stavuWith UserForm1
.Zoom = "100"
.Height = "576"
.Width = "424"
End With
citovat
' Zvětšení formuláře na velikost A4
With UserForm1
.Zoom = "135"
.Height = "770"
.Width = "567"
End With
' Tisk
UserForm1.PrintForm
' Vrácení do původního stavuWith UserForm1
.Zoom = "100"
.Height = "576"
.Width = "424"
End With
citovat