baskı önizleme

[teknikyapı]

merhaba

"Application.Visible = False" komutu ile Excel sayfalarına ulaşılamayan bir userformda aşağıdaki kod ile önizleme yapmak ve yazıcı çıktısı almak isterken yaptığım program kilitleniyor.Kodlarda nasıl bir düzenleme yapabiliriz acaba?

On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
UserForm10.Hide
Sheets("genel").PrintPreview
UserForm10.Show
Range("A1").Select
Else
Sheets("genel").PrintOut

 

[teknikyapı]

Arkadaşlar , yani excel sayfalarına ulaşılamayan bir programda baskı önizleme yapamıyormuyuz ? Eğer ulaşılamıyor ise nasıl bir yol önerebilirsiniz?

 

[Husgvarna]

Merhaba
Aşağıdaki gibi olabilir.

On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
UserForm10.Hide
Application.Visible = True
Sheets("genel").PrintPreview
Application.Visible = False
UserForm10.Show
Range("A1").Select
Else
Sheets("genel").PrintOut
End If

 

[teknikyapı]

sn Husgvarna maalesef kodları çalıştırınca baskı önizleme penceresi ,userformun arkasına düştü ve kilitlendi.

 

[omerceri]

userform un showmodal özelliğini false yaparak denerseniz.

 

[Husgvarna]

Yukarıdaki kodların sırasını değiştirmediyseniz olmaması gerek
Ömer beyin mesajını bir deneyin.

"UserForm10.Hide" (gizleme) yerine "Unload UserForm10" (kapatma) şeklinde de olabilir.

 

[teknikyapı]

Maalesef iki yolda sonuç vermedi hep baskı önizleme formun arkasına düşüyor ve kilitleniyor.

 

[omerceri]

Sn teknikyapı
Showmodal özelliğini false ayarlı iken ön izleme yaparsanız excel ulaşabilirsiniz ama form pasif kalır. Siz ön izlemeyi kapatırsanız form tekrar etkin hale gelir. Formunuzun boyutunu geçici olarak kodla küçültüp (Width, Height) ön izleme işi bitince formun Click olayına da eski boyutlarına getiren kod yazarsanız işiniz görülür.

 

[teknikyapı]

Sn omerceri dediğiniz gibi hallettim.Yardımlarınız için çok teşekkür ederim.
iyi çalışmalar.