Imprimir usando Print

Tenho o seguinte codigo:

Uso Impressora matricial epson fx 2190

Ao final do relatorio fica um espaço muito grande em branco como faço para diminuir este espaço.

Public Sub Cabecalho()
    Dim banco As Database
    Dim tbimpressão As Recordset
    Set banco = DBEngine.OpenDatabase("C:SgeBancoanco.mdb", False, False, ";pwd =1709")
    Set tbimpressão = banco.OpenRecordset("impressão", dbOpenTable)
    tbimpressão.MoveMin

    contapagina = contapagina + 1

    Printer.CurrentX = 70
    Printer.Print Tab(0); Format(Now, "h:mm am/pm"); Space(2)
    Printer.Print Tab(0); Format(Date, "dd/mm/yyyy "), Format(Now, "dddd");
    Printer.Print Tab(15); " - Requisição - ";
    Printer.Print Tab(40); "pág."; contapagina

    'Call linha
    Printer.Print
    Printer.Print Tab(0); "Requisição:"; tbimpressão("Requisicao");
    Printer.Print Tab(0); "Setor: "; tbimpressão("Local")
    'Call linha
    Printer.Print Tab(0); "************************************************************"

End Sub

Public Sub Rodape()
    Dim banco As Database
    Dim tbimpressão As Recordset
    Set banco = DBEngine.OpenDatabase("C:SgeBancoanco.mdb", False, False, ";pwd =1709")
    Set tbimpressão = banco.OpenRecordset("impressão", dbOpenTable)
    tbimpressão.MoveMin

Printer.Print Tab(0); "__________________"; Tab(13); "______________"
Printer.Print Tab(0); "Recebi o Material"; Tab(15); tbimpressão("usuario");

End Sub

    Tbcabecalho.Index = "req"
    Tbcabecalho.Seek "=", CboN_inicial.Text
        If Tbcabecalho.NoMatch = False Then
            Tbcabecalho.Index = "req"
            Tbcabecalho.Seek "=", CboN_Final.Text
            If Tbcabecalho.NoMatch = True Then
                MsgBox "Este número de requisição não existe até o momento.", vbInformation, "atenção"
                CboN_Final.SetFocus
                Exit Sub
            Else
                If CboN_Final.Text = "" Then
                    MsgBox "Digite um número valido", vbInformation, "Atenção"
                    CboN_Final.SetFocus
                    Exit Sub
                End If
                If Val(CboN_inicial.Text) > Val(CboN_Final.Text) Then
                    MsgBox "O número de requisição inicial não pode ser maior do que o número final.", vbInformation, "atenção"
                    CboN_inicial.SetFocus
                    Exit Sub
                End If
            End If
        End If
        Set banco = DBEngine.OpenDatabase("C:SgeBancoanco.mdb", False, False, ";pwd =1709")

    Select Case txtcont.Text
        Case "0"


                For Each Qry2 In banco.QueryDefs
                    If Qry2.Name = "req" Then
                        banco.QueryDefs.Delete "req"
                    End If
                Next
                For Each Qry3 In banco.QueryDefs
                    If Qry3.Name = "Relatorio" Then
                        banco.QueryDefs.Delete "Relatorio"
                    End If
                Next
                For Each Tbl1 In banco.TableDefs
                    If Tbl1.Name = "Impressão" Then
                        banco.TableDefs.Delete "Impressão"
                    End If
                Next
                'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
                sql = "SELECT Cabecalho.IDCabecalho, Cabecalho.Tipo_Mov, Cabecalho.Requisicao, Cabecalho.Data_Mov, Cabecalho.Cod_fun_Set, Cabecalho.Local, Detalhes.Cod_Prod, Produto.Siad, Produto.Item, Produto.Produto, Produto.Unidade, Produto.Grupamento, Detalhes.Fisico_Saida_Entrada, Detalhes.Unitario, Detalhes.Financeiro_Saida_Entrada, Detalhes.Diferenca, Detalhes.Usuario, Detalhes.Conserto FROM Cabecalho INNER JOIN (Produto INNER JOIN Detalhes ON Produto.Cod_Prod = Detalhes.Cod_Prod) ON Cabecalho.IDCabecalho = Detalhes.IDCabecalho WHERE Cabecalho.Requisicao Between "
                sql2 = "'" & CboN_inicial.Text & "' and '" & CboN_Final.Text & "' and Cabecalho.Tipo_Mov Between '" + Txtinicial.Text + "' and '" + Txtfinal.Text + "' and Detalhes.Conserto like '" + txtconserto.Text + "'"
                sql3 = sql & sql2
                'SQL4 = "SELECT DISTINCTROW Format$([Consulta].[data],'mm/yyyy') AS [data por mês], Consulta.Procedimento, Sum(Consulta.quantidade) AS [Soma De Total], Consulta.Nome, Consulta.especialidade From Consulta GROUP BY Format$([Consulta].[data],'mm/yyyy'), Consulta.Procedimento, Consulta.Nome, Consulta.especialidade, Year([Consulta].[data])*12+DatePart('m',[Consulta].[data])-1;"
                sql1 = "SELECT Req.* INTO Impressão FROM Req;"

                'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
                Set qd = banco.CreateQueryDef("req", sql3)
                Set qd1 = banco.CreateQueryDef("Relatorio", sql1)
                qd1.Execute
                'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

                Set tbimpressão = banco.OpenRecordset("impressão", dbOpenTable)
                contador = tbimpressão.RecordCount
                If contador < 1 Then
                    MsgBox "Não há Dados para esta consulta.", vbInformation, "Informação"
                    tbimpressão.Close
                    Unload FrmImpressao
                    Exit Sub
                Else
                    'tbimpressão.Close
                    'banco.Close
                'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
                    Printer.FontName = "arial"
                    Printer.FontSize = "9"
                    tbimpressão.MoveMin
                    contapagina = 0
                    Call Cabecalho

                    Do While Not tbimpressão.EOF
                        Printer.Print Tab(0); "Código: "; tbimpressão("Cod_Prod"); Tab(14); "Siad: "; tbimpressão("Siad"); Tab(31); "Item: "; tbimpressão("Item")
                        Printer.Print Tab(0); tbimpressão("Unidade"); Tab(28), tbimpressão("grupamento");
                        Printer.Print Tab(0); tbimpressão("Produto");
                        Printer.Print Tab(0); "Quant: "; tbimpressão("Fisico_Saida_Entrada");
                        Printer.Print Tab(0); "______________________________________________"
                        tbimpressão.MoveNext
                    Loop

                End If
                Call Rodape
                Printer.EndDoc