IMPRESSAO EM BOBINAS

Public Sub ImprimeCupom()

    Set objLojaS = New colLoja
    Dim iVarfor As Integer
    If objLojaS.Filtrar(intCod_Loja) Then
        For Each objLoja In objLojaS
            Printer.FontName = "Courier New"
            ImprimeCabecario
            Printer.Print Tab((34) / 2.5); "Comprovante de Locação"
            Printer.Print "                 Número : " & AdcionaZero(objLocacao.Codigo_Locacao, 6)
            Fonte 7, False, False
            Printer.Print
            Printer.Print String(56, "-")
            Printer.Print " Sócio  : " & txtCodigoCliente & " - " & cmbCliente
            Printer.Print " Funcionário  : "; AdcionaZero(objLocacao.Codigo_Usuario, 4) & " - " & objUsuario.RetornaUsuario(strChave_Usuario)
            Printer.Print " Data Locação  : "; Format(Date, "dd/mm/yy") & " - Hora : " & Format(Time, "hh:mm:ss")
            Printer.Print String(56, "-")
            Printer.Print Tab(2); "Codigo"; Tab(11); "Título"; Tab(45); "Tipo"; Tab(52); "Valor"
            For iVarfor = 1 To lstPrincipal.ListItems.Count
                Printer.Print Tab(2); lstPrincipal.ListItems.Item(iVarfor).SubItems(1); _
                Tab(11); lstPrincipal.ListItems.Item(iVarfor).SubItems(3); _
                Tab(46); lstPrincipal.ListItems.Item(iVarfor).SubItems(2); _
                Tab(53); Format(lstPrincipal.ListItems.Item(iVarfor).SubItems(4), "##.00")
            Next
            Printer.Print String(56, "-")
            Printer.Print
            Printer.Print Tab(2); "Valor Total ................................."; Tab(50); Format(lblTotal, "##0.00")
            Printer.Print Tab(2); "Saldo ......................................."; Tab(50); Format(lblSaldo, "##0.00")
            Printer.Print Tab(2); "Valor Pago .................................."; Tab(50); Format(txtValorPago, "##0.00")
            Printer.Print Tab(2); "Desconto ...................................."; Tab(50); Format(txtDesconto, "##0.00")
            Printer.Print
            Printer.Print
            ImprimeRodape
            Printer.Print
            Printer.Print
            Printer.Print
            Printer.Print
            Printer.Print Tab(5); String(47, "-")
            Fonte 9, True, False
            Printer.Print Tab((56 - Len(cmbCliente)) / 2.5); cmbCliente
            Printer.EndDoc
        Next
    End If
End Sub

Private Sub Fonte(Tamanho As Byte, Negrito As Boolean, Italico As Boolean) 'Altera a fonte
    Printer.FontSize = Tamanho
    Printer.FontBold = Negrito
    Printer.FontItalic = Italico
End Sub

Public Sub ImprimeCabecario()
    Fonte 11, True, False
    Printer.Print Tab((47) / 3); "DVD VàDEO"
    Printer.Print
    Printer.Print Tab((36) / 3); "LOCAÇÃO DE VHS E DVD"
    Printer.Print
    Fonte 7, False, False
    Printer.Print Tab((56 - Len(objLoja.Endereco_Loja)) / 2); objLoja.Endereco_Loja
    Printer.Print Tab((50 - Len(objLoja.Telefone_Loja)) / 2); "Tel : " & objLoja.Telefone_Loja
    Printer.Print Tab((56 - Len(objLoja.Descricao_Cidade)) / 2); objLoja.Descricao_Cidade
    Printer.Print "  HORARIO DE FUNCIONAMENTO: DIARIAMENTE DAS 10 as 22 HS  "
    Printer.Print
    Printer.Print "  DEVOLUÇÃO ANTEC.: DESC. DE R$ 1,00 P/ VHS LANC. E DVD   "
    Printer.Print
    Fonte 9, True, False
End Sub

Public Sub ImprimeRodape()
    Fonte 7, True, False
    Printer.Print Tab((31) / 2); "TERMO DE RESPONSABILIDADE"
    Fonte 7, False, False
    Printer.Print Tab(2); " O locatário acima declara conhecer as obrigações cons-"
    Printer.Print Tab(2); "tantes em contrato e autoriza a Locadora emitir dupli- "
    Printer.Print Tab(2); "cata de R$ 150,00, por filme danificado e/ou não devol-"
    Printer.Print Tab(2); "vido após 10 dias e promover ação judicial.            "
    Printer.Print Tab(2); " No atraso de devolução dos filmes os mesmo serão rea- "
    Printer.Print Tab(2); "locados automáticamente.                               "
End Sub