Userform açıkken baskı önizleme

[bravo64]

merhaba
userformaçıkken,sayfaya aktardığım bilgileri kontrol için yazdırmadan önce baskı önizleme yaptırabilirmiyiz..
command butona;
sheets("sayfa1").printout preview:=1
şeklinde kod atadım ama sayfa önizleme userformun arkasında kalıyor ve sistem kilitleniyor..

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:2bf68f0feb]Me.Hide
Sheets("sayfa1").PrintOut preview:=1
Me.Show
[/vb:1:2bf68f0feb]

 

[bravo64]

Teşekkürler, gayet güzel oldu..

 

[Hakan ERDOST]

Sayın bravo64 sizde çalıştı herhalde ben aynı kodu uyguladım.Ã?nizleme ekranı gelmiyor.Userform kapanıyor.Çalışma kitabı bir daha açılmıyor.Restart edinceye kadar neden acaba.

 

[Levent Menteşoğlu]

Kodları userform üzerindeki bir commandbuttona yazmalısınız.

 

[Hakan ERDOST]

Doğal olarak Ã?nizleme diye bir buton oluşturup ona atadım.Ancak sistem kilitlendi .yeniden abşlatmak zorunda kaldım.

 

[bravo64]

Sayın hexadesimal,kod normal olarak çalışıyor..sayfa tanımlamanız yada kodda eksik birşey olabilir..

 

[bravo64]

sayın leventm,daha önce verdiğiniz (cdbl(textbox1.value) kodunda,eğer textboxdaki değeri silersem debug veriyor..neden acaba?

 

[Levent Menteşoğlu]

Bu doğru sildiğinizde bunu boşluk yani metin olarak algılayacaktır. Bu sebeple koda ilk satır olarak aşağıdaki satırı ilave edelim.

if Textbox1="" then exit sub

 

[bravo64]

sevgili Leventm,
tamam debug vermiyor artık ama değeri sildiğimde hücre eski değerde kalıyor.Eğer 0 yazarsam textboxa aynen yazıyor.
yani textboxdaki değeri sildiğimde hücrede silinemezmi?
sizi çok yordum kusura bakmayın..

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin.

if Textbox1="" then
[a1]=""
exit sub
end if

 

[Hakan ERDOST]

Private Sub izin_Click()
Sheets("izin").Select

Range("d3").Value = yeni.tc.Value
Range("d4").Value = yeni.gorevi.Value
Range("d5").Value = yeni.gorevi.Value
Range("d6").Value = yeni.adi.Value
Range("d7").Value = yeni.baadi.Value
Range("d8").Value = yeni.dtar.Value
Range("d9").Value = yeni.gorevilk.Value
Range("d10").Value = yeni.sicilno.Value
Range("d28").Value = yeni.adi.Value



End Sub
Bu rapor kodum oluştur. diyoruz.
Daha sonra önizleme için
izimn kodunuzu aşağıdaki şekilde uyguluyorum.

Private Sub CommandButton28_Click()
Me.Hide
Sheets("izin").PrintOut preview:=1
Me.Show

End Sub
ve sonrada bir yazdır butonum var
onun koduda

Private Sub CommandButton15_Click()

Sheets("izin").PrintOut Copies:=1

End Sub

şeklinde önizleme kodu olmadan aynı zamanda önizlemede olmadan sorun yok.Ama ben önizleme olsun istiyorum.Ama az önce kodu kontrol edip tekrar denedim yine aynı sorun sistem kilitlendi excelden çıkılamıyor mesajı ile yeniden başlatmak zorunda kaldım.

 

[bravo64]

Sayıh Leventm,enson verdiğiniz kodla herşey tamamlandı..Çok teşekkür ederim..Dün gece çok geç olduğu için deneme sonucunu size iletemedim..Boşluk yarattıysam özür dilerim..

Sayın hexadesimal,kodunuzu denedim bende çalışıyor..Þunu düşünüyorum,yazdıracağınız sayfanın sayfa yapısını kontrol edin.Yazdırma alanını belirleyin..Bunlar tamamen en son aklıma gelen şeyler çünkü kodda sorun yok..
kısıtlı bilgilerimle sizi yanıltmak istemem..
İyilikler diliyorum..