Baskı önizlemeyi kapat

[basridogan]

Herkese selam
Baskı önizlemeyi nasıl kapatabilirim? (Kodla kapatmak istiyorum) Veya Baskı önizlemeyi "kapat" butonuna tıkladığımda kapatsın ve anaform çıksın.
Yardımcı olursanız sevinirim.

 

[nziya]

YANIT

Ã?N İZLE FORMA GERİ DÃ?N

 

[basridogan]

Sayın nziya
Çok teşekkür ederim.

Kodun içeriğini tam olarak anlayamadım. Mantığını kavramama yardımcı olurmusunuz?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
UserForm1.Hide

'altta yazılan sayfa isimlerini ön izlemede gösterir

Sheets(Array("sayfa1", "sayfa2", "sayfa3")).PrintPreview
Application.ScreenUpdating = False
Application.Visible = False
Application.ScreenUpdating = True
UserForm1.Show
End Sub
:?