"yazdır" komutu hakkında

[yasarcan]

merhaba arkadaşlar

yazdırma makrosu olarak şunu kullanıyorum

Private Sub cmbPrint_Click()
    For i = 1 To Me.lbxSheets.ListCount
        If Me.lbxSheets.Selected(i - 1) = True Then
            If Me.chkPreview Then
                Me.Hide
                Sheets(Me.lbxSheets.List(i - 1, 0)).PrintPreview
                Me.lbxSheets.Selected(i - 1) = False
            Else
                Sheets(Me.lbxSheets.List(i - 1, 0)).PrintOut
                Me.lbxSheets.Selected(i - 1) = False
            End If
        End If
    Next i
End Sub

çok güzel çalışıyor fakat; yazdırma yüksek kalitede ve yavaş yapılıyor. benim istediğim hızlı yazdırmak.. yardımcı olacaklara şimdiden teşekkürler.