Imprimir informes según Rangos definidos por Combobox

Me gustaría y me ayudaran en el siguiente macros de impresión, ya que al momento de abrirlo no me muestra los rangos que estoy solicitando en el combobox y me imprime también toda la hoja y solo necesito datos de columnas especificas, gracias .

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

If ComboBox1 = "" And ComboBox7 = "" Then
MsgBox "Selecciona una fecha o un nombre"
Exit Sub
End If

If ComboBox2 = "" Then ComboBox2 = ComboBox1
Set h1 = Sheets("Hoja2")
h1.AutoFilterMode = False
h1.Range("$A$1:$L$19").AutoFilter Field:=3, _
Criteria1:=">=" & Format(ComboBox1, "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(ComboBox2, "mm/dd/yyyy")
h1.PrintOut Copies:=1, Collate:=True
h1.AutoFilterMode = False
End Sub