eğer liste kutusundaki kriter alanlarındaki onayı kaldırırsanız

For i = 0 To Me.Liste5.ListCount - 1



xlApp.Sheets(1).Cells(i + 2, 2).Value = Me.Liste5.Column(0, i)

xlApp.Sheets(1).Cells(i + 2, 3).Value = Me.Liste5.Column(1, i)

xlApp.Sheets(1).Cells(i + 2, 4).Value = Me.Liste5.Column(2, i)

xlApp.Sheets(1).Cells(i + 2, 5).Value = Me.Liste5.Column(3, i)

xlApp.Sheets(1).Cells(i + 2, 6).Value = Me.Liste5.Column(4, i)

xlApp.Sheets(1).Cells(i + 2, 7).Value = Me.Liste5.Column(5, i)

xlApp.Sheets(1).Cells(i + 2, 8).Value = Me.Liste5.Column(6, i)



Next i

yukardaki yazdırma kodunu aşağıdaki ile değiştirebilirsiniz

Dim rs As Recordset

Set rs = Me.Liste5.Recordset

rs.MoveFirst

xlApp.Sheets(1).Range("B2").CopyFromRecordset rs 'Me.Liste5.Recordset

Rng.Columns.AutoFit