listboxta yazdırma problemi

[fıratt]

listboxta verileri yazdırırken yada ön izleme yaparken harfler bir birine karışıyor bazıları çıkmıyor bana yardım edermisiniz.

 

[Levent Menteşoğlu]

Commandbutton10 daki kodu aşağıdaki ile değiştirin. Kırmızı renkli satır eklenmiştir.

Private Sub CommandButton10_Click()
 Dim sh As Worksheet
    Application.ScreenUpdating = False
    Set sh = Worksheets.Add
    Me.Hide
    With sh
        .Range("A1").Resize(ListBox1.ListCount, ListBox1.ColumnCount) = ListBox1.List
        [COLOR=red][B].Columns("a:z").AutoFit[/B][/COLOR]
        .PageSetup.PrintArea = "A1:G60"
        .PrintPreview
         Application.DisplayAlerts = False
        .Delete
         Application.DisplayAlerts = True
    End With
    Application.ScreenUpdating = True
    Me.Show
    Set sh = Nothing
End Sub

 

[fıratt]

çok saol teşekkür ederim

 

[cenderus]

bu konuya ilişkin dosya tekrar eklenmiştir

bu konuya ilişkin dosya tekrar eklenmiştir