yazdırma

[erdenek]

arkadaşlar ekteki dosyada yer alan sayfaları tek tek açmadan user form veya makro ile nasıl yazdırabiliriz?yalnız arkadaşlar ekteki dosya sürekli güncelenecek olan dosya sayfa sayıları ve ders adeti artabilir.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat As Long, i As Integer
If ListBox1.ListIndex < 0 Then
    MsgBox "Lütfen Yazdırmak için listeden bir seçim yapınız!!", vbCritical, "U Y A R I"
    Exit Sub
End If
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        sat = Sheets(ListBox1.List(i, 0)).Cells(Rows.Count, "C").End(xlUp).Row
        Sheets(ListBox1.List(i, 0)).Range("B2:E" & sat).PrintOut
    End If
Next i
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
ListBox1.Clear
For i = 5 To Worksheets.Count
    ListBox1.AddItem Sheets(i).Name
Next
End Sub

 

[erdenek]

ellerinize sağlık.yalnız makroları etkinleştir deyince user form açıldı.bende kapatma tuşuna (x) basıp kapattım.Dosyayı yazdırmak istediğimizde nasıl yazdıracağız.bir de hocam tek seçimlik olmuş çoklu olursa daha güzel olur.

 

[Orion1]

ellerinize sağlık.yalnız makroları etkinleştir deyince user form açıldı.bende kapatma tuşuna (x) basıp kapattım.Dosyayı yazdırmak istediğimizde nasıl yazdıracağız.bir de hocam tek seçimlik olmuş çoklu olursa daha güzel olur.

dosyayı güncelledim.
2 nolu mesajdan indirebilrisiniz.

 

[erdenek]

ellerinize sağlık.çok teşekkür ederim.yalnız ben buna sayfa eklediğim zaman (drama-3 gibi) bunu user forma nasıl ekleyeceğim.

 

[Emir Hüseyin Çoban]

ellerinize sağlık.çok teşekkür ederim.yalnız ben buna sayfa eklediğim zaman (drama-3 gibi) bunu user forma nasıl ekleyeceğim.

. . .

Syn erdenek,
Tablonuza istediğiniz sayfayı ekleyip, userformu çalıştırarak sonucu gözlemleyiniz.
Sayfa ismi listeye eklenmiş olacaktır.

. . .

 

[erdenek]

. . .

Syn erdenek,
Tablonuza istediğiniz sayfayı ekleyip, userformu çalıştırarak sonucu gözlemleyiniz.
Sayfa ismi listeye eklenmiş olacaktır.

. . .

ellerinize sağlık.denedim oldu.çok teşekkürler