yazdır komutu konusunda yardımcı olurmusunuz

[can06]

ben bu user formu hazırladım fakat yazdır komutunu tamamlıyamadım yazdır komutuna bastığımda aşağıdaki işlemlerin yapılmasını istiyorum
1 şube kredi komitesini yazdırsın
2 eğer kredi vadesi 12 aydan fazla ise sigorta sözleşmesini yazdırsın 12 ay veya daha az ise sigorta sözleşmesini yazdırmasın
3 borçlu için virman talimatı yazdırılsın
4 borçlu eğer emekli ise yani option button evet seçilmisse, virman emekli 1. sayfa yazdırılsın
5 kefil var ise kefil için virman talimatı 2. sayfa yazdırılsın
6 kefil eğer emekliyse virman emekli 2. sayfa yazdırılsın
7 2. kefil varsa kefil için virman talimatı 3. sayfa yazdırılsın 2. kefil emekliyse virman emekli 3. sayfa yazdırılsın
8 eğer kredi miktarı veya kredi vadesi yazılmadıysa lütfen vade giriniz veya lütfen kredi miktarını giriniz şeklinde msg box uyarısı versin
9 şimdilik bukadar
iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton4_Click()
    If TextBox10 = "" Then MsgBox "LÜTFEN KREDİ MİKTARINI GİRİNİZ !", vbExclamation, "DİKKAT !": TextBox10.SetFocus: Exit Sub
    If TextBox11 = "" Then MsgBox "LÜTFEN KREDİ VADESİNİ GİRİNİZ !", vbExclamation, "DİKKAT !": TextBox11.SetFocus: Exit Sub
    Sheets("şube kredi komitesi").PrintOut Copies:=1, Collate:=True
    If TextBox11 > 12 Then Sheets("sigorta").PrintOut Copies:=1, Collate:=True
    If OptionButton1 = True Then Sheets("virman talimatı").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    If TextBox2 <> "" And OptionButton5 = True Then Sheets("virman emekli").PrintOut From:=2, To:=2, Copies:=1, Collate:=True
    If TextBox2 <> "" And OptionButton5 = False Then Sheets("virman talimat&#305;").PrintOut From:=2, To:=2, Copies:=1, Collate:=True
    If TextBox3 <> "" And OptionButton6 = True Then Sheets("virman emekli").PrintOut From:=3, To:=3, Copies:=1, Collate:=True
    If TextBox3 <> "" And OptionButton6 = False Then Sheets("virman talimat&#305;").PrintOut From:=3, To:=3, Copies:=1, Collate:=True
End Sub

 

[can06]

hocam ekteki gibi bi uyarı verdi benim yazıcım yok deniyemiyorum ama anladığım kadarıyla hata veriyo yoksa yanılıyomuyum

 

[Korhan Ayhan]

Selamlar,

Size önerdiğim kodu deneyerek göndermiştim. Yazıcı olan bir bilgisayarda deneyip sonucu bildirirmisiniz.

 

[can06]

bende işyerinde bugün denedim çalışmadı sadece kredi komitesini ve sigorta sözleşmesini veriyo okadar lütfen yardım edin bitiriyim çok uğraştım

 

[can06]

yokmu yanıt veren