Direk Baskı Önizleme

[semihcan1991]

Arkadaşlar Merhaba,

Ekteki dosyada "Rapor Yazdır" Seçeneği seçildiğinde daha önce oluşturmuş olduğumuz formu tarih seçme koşuluyla direk baskı önizleme yaptırabilirmiyiz.

 

[YUSUF44]

Ekteki dosyada "rapor yazdır" seçeneği yok.

Ekteki dosyada "tarihle ilgili" herhangi bir veri de yok.

userform'da veri alanlarının ne olduğu belli değil.

vs vs.

 

[semihcan1991]

Kusura bakmayın sabahın saat 6 sında yanlış dosyayı yüklemişim. Düzeltildi.

 

[semihcan1991]

Tarih seçme koşuluyla dedim listboxun üzerine konulacak textbox yada Dt ile bu işlem yapılabilir diye herhangi bir buton koymadım ama Dt ile yapılırsa daha kullanışlı olur

 

[YUSUF44]

Command button 6'nın kodlarında end sub satırından önce aşağıdaki kodu kullanırsanız yazdırma sayfasının baskı önizlemesini gösterir:

ActiveWindow.SelectedSheets.PrintPreview

 

[semihcan1991]

Teşekkürler yazdım çalıştı.

peki yazdırmadan önce tarih seçimi yapabilirmiyim.

 

[YUSUF44]

Zaten formunuz aynı işi yapıyor. userform üzerindeki tarih kutusunda hangi tarih yazılıysa o tarihin listesini yazdırma sayfasına getiriyor.

 

[semihcan1991]

evet yusuf bey formun üzerinde kayıt a göre sıralıyor kayıtın üzerinde hangi tarihe tıklarsak o tarihin raporunu veriyor. Benim istediğim listboxtaki kayıtları DT ile tarihe göre görüntüleyebilmek

 

[YUSUF44]

DT nedir? Daha ayrntılı bilgi verirseniz bilen biri yardımcıolacaktır?

Bu arada userform üzerinde kayıların listelendiği list box1'in arka plan rengini siyahtan başka bir renk yapmanız iyi olur

 

[semihcan1991]

DT picker diye tarih seçmek için toolbaxta eklenti var veya textbox ile veri filtrelemede işimi görür Sn Yusuf.

 

[semihcan1991]

DT nedir? Daha ayrntılı bilgi verirseniz bilen biri yardımcıolacaktır?

Bu arada userform üzerinde kayıların listelendiği list box1'in arka plan rengini siyahtan başka bir renk yapmanız iyi olur

sizde siyahmı görünüyor alla alla

 

[semihcan1991]

arkadaşlar yardımlarınızı bekliyorum.

 

[semihcan1991]

konuya hala yanıt beklemekteyim arkadaşlar teşekkürler.

 

[Mahir64]

Merhaba,

Rapor Yazdır Butonunda bulunan kodları,

Private Sub CommandButton6_Click()
    If MsgBox(TextBox6 & " TARİHİNDEKİ İŞLEMLERİN KASA KAYDI OLUŞTURULUP PRINT EDİLECEKTİR ONAYLIYOR MUSUNUZ ?", vbCritical + vbYesNo, "") = vbYes Then
    Sheets("Yazdırma Sayfası").Select
    [C1] = CDate(TextBox6.Text)
    Unload UserForm1
[COLOR=Red]    ActiveWindow.SelectedSheets.PrintPreview[/COLOR]
    Else
    MsgBox "KASA RAPORU OLUŞTURMA İŞLEMİ İPTAL EDİLMİŞTİR.", vbInformation, ""
    End If
End Sub

Bu şekilde değiştiriniz.

 

[semihcan1991]

teşekkürler Mahir para birimi kısmına TL ekleyebilirmiyiz