userform baskı önizleme ekrana gelmiyor

[netvolxxx]

merhaba arkadaşlar yapamadığım bi olay var mantık ne anlamadım gitti


örnek açılışta userform1 geliyor baskı önizleme buton bastığımda ekrana gelmiyor


denemediğim yol yöntem kalmadı sayfa içinden buton ile çalıştırınca sorun yok.



Private Sub Workbook_Open()
On Local Error Resume Next
UserForm1.Show
End Sub


Private Sub CommandButton1_Click()
On Local Error Resume Next
Unload Me
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.DisplayAutomaticPageBreaks = False
UserForm1.Show
End Sub



Private Sub UserForm_Initialize()
On Local Error Resume Next
Application.Visible = False
End Sub

 

[Korhan Ayhan]

Merhaba,

Faydalı olabilir.

UserForm yazıcı için sayfayı görüntüleme sorunu

merhabalar. userform dan sayfayı görüntüle dediğimizde userformu kapatmadan arka plana atıp sayfa ön izlemesini görüntülemek sayfa görüntülemesinden çıkış yaptığımızda tekrar userforma dönmek istiyorum fakat bunu ActiveSheet.PrintPreview ile yaptığımızda sayfa donuyor. yardımlarınızı bekliyorum...

www.excel.web.tr

Sorgu için arama sonuçları: Userform+printpreview

www.excel.web.tr

 

[netvolxxx]

Merhaba,

Faydalı olabilir.

UserForm yazıcı için sayfayı görüntüleme sorunu

merhabalar. userform dan sayfayı görüntüle dediğimizde userformu kapatmadan arka plana atıp sayfa ön izlemesini görüntülemek sayfa görüntülemesinden çıkış yaptığımızda tekrar userforma dönmek istiyorum fakat bunu ActiveSheet.PrintPreview ile yaptığımızda sayfa donuyor. yardımlarınızı bekliyorum...

www.excel.web.tr

Sorgu için arama sonuçları: Userform+printpreview

www.excel.web.tr

korhan hocam teşekürr ederim sorunum şöyle yazınca çözüldü..

Private Sub CommandButton1_Click()
On Local Error Resume Next
Application.Visible = True
UserForm1.Hide
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.DisplayAutomaticPageBreaks = False
Application.Visible = False
UserForm1.Show
end sub