listbox yazdırırken boş göndermesi

[ofbayoglu]

Arkadaşlar merhaba listboxta seçtiğim değerleri excelde sayfaya gelmektedir. fakat yazdırma yaptığımda pdf yada çıktı boş geliyor. bunu nasıl düzeltebilirirm.

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
a = Sayfa12.Range("F100000").End(xlUp).Row
Sayfa12.Range("B" & 6, "F" & a + 1).ClearContents

For i = 1 To Me.Lb1_Siparisler.ListCount - 1
For X = 0 To 5
Sayfa12.Cells(i + 5, X + 2) = Me.Lb1_Siparisler.List(i, X)
Next X
Next i
Sayfa12.Range("B" & 1, "F" & b + 1).PrintOut


Application.ScreenUpdating = True
End Sub

 

[ÖmerFaruk]

Private Sub CommandButton2_Click()
Bu iki satırı aşağıdaki 4 satırlar değiştirin

Private Sub CommandButton2_Click()
Dim Sayfa12 as Worksheet
Set Sayfa12=Worksheets("Sayfa12")
Application.ScreenUpdating = False

 

[ofbayoglu]

hocam şöyle bi hata veriyor

 

[ÖmerFaruk]

Sayfa12 isimli bir sayfanız vr mı yok mu?

 

[ofbayoglu]

vay hocam oraya atıyor listeyi sizin yazdığınız komutu yazınca bu hatayı verdi sayfaya atmadı. ben set olarak bu dosyayı daha öncede tanıtmıştım. sizin verdiğiniz şekilde de tanımlı sayfayı silerek kaydettim ama yine olmadı

Dim wsAnasayfa, wsSiparis, wsCari, wsStok, wsHammadde, wshamgiris, wshamcikis, wsÜretim, wsSatınalma, wsTeklif, WsData, Wssayfa12 As Worksheet

Set wsAnasayfa = Workbooks(ThisWorkbook.Name).Worksheets("Anasayfa")
Set wsSiparis = Workbooks(ThisWorkbook.Name).Worksheets("Siparis")
Set wsCari = Workbooks(ThisWorkbook.Name).Worksheets("Cari")
Set wsStok = Workbooks(ThisWorkbook.Name).Worksheets("Stok")
Set wsHammadde = Workbooks(ThisWorkbook.Name).Worksheets("Hammadde")
Set wshamgiris = Workbooks(ThisWorkbook.Name).Worksheets("Hamgiris")
Set wshamcikis = Workbooks(ThisWorkbook.Name).Worksheets("Hamcikis")
Set wsÜretim = Workbooks(ThisWorkbook.Name).Worksheets("Üretim")
Set wsSatınalma = Workbooks(ThisWorkbook.Name).Worksheets("Satınalma")
Set wsTeklif = Workbooks(ThisWorkbook.Name).Worksheets("Teklif")
Set WsData = Workbooks(ThisWorkbook.Name).Worksheets("Data")
Set Wssayfa12 = Workbooks(ThisWorkbook.Name).Worksheets("sayfa12")

 

[ÖmerFaruk]

Dosyanızı gönderin öyle bakalım

 

[ofbayoglu]

HOCAM yazdırmayı pdf ye çevirdim oldu çok teşekkür ederim ilginize emeğinize sağlık

Sayfa12.Range("A1:h50").ExportAsFixedFormat Type:=xlTypePDF, openafterpublish:=True