Listview de

[mars2]

İyi Akşamlar;

Excelde bulunan sayfalardan istenilineni seçip yazdırmak istiyorum.

Konu hakkında yaptığım araştırma sonucu, excelde bulunan sayfaları Listview'de göstermek ve istenilen sayfayı yazdırmak için örneği bire bir kopyasını elle oluşturmaya çalıştım ancak, Sutun başlığı ve sayfa seçenekleribulunmamaktadır.

Konu hakkında nerede yanlışlık yapmaktayım.
ColumnHeaders.utun başlığına veri çekmek ve yazdırmak istiyorum

 

[mars2]

örnek ektedir

 

[mars2]

Yukarıda sorunumu tam anlatammaış olabileceğimi düşündüğümden daha fazla bilgi vererek konu hakkında yardımlarınmızla,
Çalışma kitabımın farklı sayfalarında bulunan formlar bulmakta olup bunlardan seçtiğim sayfa ve sayfaları yazdırmak istiyorum.

Örnek alarak yapmaya çalıştığım çalışmada (kodlarıda uygularak) örnek1 deki resimde Userform1 çıkmakta ancak, Userform1'in örnek2 deki gibi Listview1 de sayfa isimleri görürülmesi ve seçtiğim sayfaları yazdırmak istiyorum. Nerede eksiklik veya hata yapmış olabilirim.
Ayrıca bu uygulama dışında, farklı sayfalardan seçtiğim sayfa veya sayfaları yazdırmak için farklı uygulama hakkında yardımlarınız beklemekteyim.

 

[Muzaffer Ali]

Merhaba.
Formun kod sayfasında bulunan Private Sub CommandButton1_Click() ve Private Sub UserForm_Initialize() kodlarını silin aşağıdakileri ekleyin.

Private Sub CommandButton1_Click()
    For X = 1 To UserForm1.ListView1.ListItems.Count
        If ListView1.ListItems(X).Checked = True Then
            Worksheets(ListView1.ListItems(X).Text).PrintOut X, X, 1
        End If
    Next
    MsgBox "Seçtiğiniz sayfalar yazıcıya gönderilmiştir.", vbInformation
End Sub

Private Sub UserForm_Initialize()
    Set S1 = Sheets("Sayfa3")
    With ListView1
        .View = lvwReport
        .Gridlines = True
        .LabelEdit = lvwManual
        .CheckBoxes = True
        .MultiSelect = True
        .ColumnHeaders.Add , , "SAYFALAR", 100
        For Each Veri In S1.Range("B2:B" & S1.Cells(S1.Rows.Count, 2).End(3).Row)
            .ListItems.Add , , Veri.Value
        Next
    End With
End Sub

 

[mars2]

Sayın Muzaffer Ali;

Yardım ve ilginiz teşekkürler
Örnek uygulamaya tatbik ettiğimde sorunsuz öalıştı. ancak bende bulunan Userform4 de uyguladığımda Listview de sayfa adları çıkmıyor neden olabileceği hakkında düşüncelerinizden faydalanmak isterim

 

[Muzaffer Ali]

Userform4'ün olduğu dosyayı görebilirsem daha hızlı ve doğru yanıt verebilirim.

 

[mars2]

Sayın @Muzaffer Ali;
Listview sorunu çözüldü,
Aşağıdaki kod ile yazdırdığımda seçtiğim sayfanın çıktısını vermemektedir.

Private Sub CommandButton1_Click()
For X = 1 To UserForm1.ListView1.ListItems.Count
If ListView1.ListItems(X).Checked = True Then
Worksheets(ListView1.ListItems(X).Text).PrintOut X, X, 1
End If
Next
MsgBox "Seçtiğiniz sayfalar yazıcıya gönderilmiştir.", vbInformation
End Sub

 

[mars2]

Sayın @Muzaffer Ali;
Listview sorunu çözüldü,
Aşağıdaki kod ile yazdırdığımda seçtiğim sayfanın çıktısını vermemektedir.

Private Sub CommandButton1_Click()
For X = 1 To UserForm1.ListView1.ListItems.Count
If ListView1.ListItems(X).Checked = True Then
Worksheets(ListView1.ListItems(X).Text).PrintOut X, X, 1
End If
Next
MsgBox "Seçtiğiniz sayfalar yazıcıya gönderilmiştir.", vbInformation
End Sub

 

[mars2]

Sayın @Muzaffer Ali;

Listview2 listesindeki 1. sıradakini seçince yazdıyor, 2. sıradaki seçince yazdırrmıyor. 1. Sıradaki zarf ismini 2. sıraya aldığımda 1. sıradaki zarf(1) yazdırıyor 2. sıradaki zarf sayfasını yazdıramadığından yazıcıdan çıktı alamıyorum. Neden olabilir.