• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bağlı Combo da otomatik print çıktısı almak

evet hocam aynen dediğiniz gibi. bu printleri tek bir sefer de almak istiyoruz.
 
Yalnız 3 bölgemi var.Yani data sayfasında D-E-F sütunlarından sonrada bölgeler olacakmı?
 
Dosyanız ekte.:cool:
Kod: 
Sub yazdir()
Dim i As Integer, k As Integer
Sheets("Trend").PageSetup.PrintArea = "Trend!H32:O103"
For i = 0 To Sheets("Trend").ComboBox1.ListCount - 1
    Sheets("Trend").ComboBox1.ListIndex = 0
    For k = 0 To Sheets("Trend").ComboBox2.ListCount - 1
        Sheets("Trend").ComboBox2.ListIndex = k
        Sheets("Trend").PrintOut
    Next k
Next i
Sheets("Trend").PageSetup.PrintArea = ""
End Sub
 

Ekli dosyalar

Kodlarda bir yerde ekisk kod yazmışım.Onu düzelttim.Dosyayı Önceki mesajımdan indirebilirsiniz.:cool:
 
hocam elinize sağlık oldu gibi. yalnız bir bölgeden diğerine geçerken listindex bulunamadı diye hata mesajı veriyor. çok zamanınızı aldım hocam.kusurabakmayınız.
 
hocam ilk bölgenin son elemanına gelince su uyarıyı veriyor: 'runtime rror 380' could not set the listindex property.invalid property value. ben yazdırma alanını h32 yerine a5 verdiğim için son elemanda hep bu hatayı verdiğini görebiliyorum.
 
Sanırım combobox2 nin change olayındaki aşağıdaki kodlardan dolayı oluyor.:cool:
Combobox2 den bir seçim olunca bazı şartlar yerine gelince combobox1deki seçimi değiştiriyor.Buda combobox2yi tekrar dolduruyıor.ama bu sferde bizim daha önceden listcoun tumuz daha azx oluyor ve hata oluşuyor.:cool:
Kod: 
For i = 0 To ComboBox1.ListCount - 1
        If ComboBox1.List(i) = sBolge Then
            ComboBox1.ListIndex = i
            GoTo fpc
        End If
    Next i
 
hocam dediğnizi tam olarak anlayamadım. bu yazdığınız kodu benim eklemem mi gerekiyor kod kısmına? nasıl bir düzeltme yapmamız gerekmekte su an?
 
arkelanj' Alıntı:
hocam dediğnizi tam olarak anlayamadım. bu yazdığınız kodu benim eklemem mi gerekiyor kod kısmına? nasıl bir düzeltme yapmamız gerekmekte su an?
Genişletmek için tıkla ...
Bağsettiğm combobox içindeki kodları etkisiz kıldım.
Şimdi hatasız çalışıyor.Dosya ektedir.:cool:
Kod: 
Sub yazdir()
Dim i As Integer, k As Integer
Sheets("Trend").PageSetup.PrintArea = "Trend!A5:O103"
Sheets("Trend").ComboBox1.ListIndex = 0
For k = 0 To Sheets("Trend").ComboBox2.ListCount - 1
    Sheets("Trend").ComboBox2.ListIndex = k
    Sheets("Trend").PrintOut
Next k
Sheets("Trend").PageSetup.PrintArea = ""
End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst