SALTAR LINHAR EM BRANCO USANDO O PRINTER

    With Printer
        .ScaleMode = vbPixels
        
        .PaintPicture Image1.Picture, 100, 0, 372, 150
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        
        .ScaleMode = vbCentimeters
        .FontName = [Ô]courier new[Ô]
        [ô].PrintQuality = vbPRPQHigh
        
        Fonte 8, False, False
        Printer.Print String(40, [Ô]-[Ô])
        Fonte 10, True, False
        Printer.Print Tab((35 - Len(RS_Empresa!FANTASIA)) / 2); RS_Empresa!FANTASIA   [ô]Esse /2 é p/ centralizar
        Fonte 10, False, False
        Printer.Print Tab((35 - Len(RS_Empresa!RAZAO)) / 2); RS_Empresa!RAZAO
        Fonte 8, False, False
        Printer.Print RS_Empresa!ENDERECO & [Ô], [Ô] & RS_Empresa!cidade & [Ô]-[Ô] & RS_Empresa!estado
        Printer.Print [Ô]FONE: [Ô]; RS_Empresa!TELEFONE
        Fonte 8, False, False
        Printer.Print [Ô]CNPJ:[Ô]; RS_Empresa!CNPJ & [Ô]  IE:[Ô] & RS_Empresa!IE
        Printer.Print [Ô] [Ô]

        Fonte 10, True, False
        Printer.Print Tab(10); [Ô]CUPOM DE VENDA[Ô]
        
        Fonte 8, False, False
        Printer.Print Tab(2); Format(Date, [Ô]dd/mm/yy[Ô]); [Ô]  [Ô]; Format(Time, [Ô]hh:mm[Ô]); [Ô]  [Ô]; [Ô]CÓD:[Ô]; Format(txtCodPedido.Text, [Ô]000000[Ô]); rsFunc!NOME

        Fonte 8, False, False
        Printer.Print String(40, [Ô]-[Ô])
        Printer.Print Tab(0); [Ô]DESCRIÇÃO[Ô];
        Printer.Print Tab(20); [Ô]PREÇO[Ô];
        Printer.Print Tab(26); [Ô]QTDE[Ô];
        Printer.Print Tab(35); [Ô]TOTAL[Ô]
        Printer.Print String(40, [Ô]-[Ô])

        Call ABRIR_BD_SEM_DATA1
        SQL = [Ô]SELECT CODIGO, COD_PEDIDO, DESCRICAO, PRECO, QUANTIDADE, TOTAL FROM PEDIDOS_ITENS WHERE COD_PEDIDO = [Ô] & txtCodPedido.Text & [Ô] ORDER BY CODIGO DESC[Ô]
        Set RS = BD.OpenRecordset(SQL)

        RS.MoveFirst                [ô]movimenta o ponteiro para o primeiro registro

        Do While Not RS.EOF [ô]
  
        [ô]---------------imprime os dados da tabela----------------------------
        Printer.Print Tab(0); RS([Ô]DESCRICAO[Ô]);
        Printer.Print Tab(19); Format$(Format$(RS([Ô]PRECO[Ô]), [Ô]0.00[Ô]), [Ô]@@@@@@@[Ô]);
        Printer.Print Tab(26); Format$(Format$(RS([Ô]QUANTIDADE[Ô]), [Ô]0.000[Ô]), [Ô]@@@@@@@[Ô]);
        Printer.Print Tab(33); Format$(Format$(RS([Ô]TOTAL[Ô]), [Ô]0.00[Ô]), [Ô]@@@@@@@[Ô])

        RS.MoveNext                 [ô]vai para o proximo registro

        Loop
        
        Printer.Print String(40, [Ô]-[Ô])
        
        Fonte 8, False, False
        Printer.Print Tab(0); Tab(20); [Ô]Total: [Ô];
        
        Fonte 10, True, False
        Printer.Print Tab(25); Format$(Format$(txtTotalGeral.Text, [Ô]0.00[Ô]), [Ô]@@@@@@@@[Ô])
        
        Printer.Print
        
        Fonte 8, False, False
        Printer.Print Tab((40 - Len([Ô]ESTE CUPOM NÃO TEM VALOR FISCAL[Ô])) / 2); [Ô]ESTE CUPOM NÃO TEM VALOR FISCAL[Ô]
        Fonte 8, False, False
        Printer.Print Tab((40 - Len([Ô]Obrigado pela preferência[Ô])) / 2); [Ô]Obrigado pela preferência[Ô]
        
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Printer.Print String(1, [Ô] [Ô])
        Close #1
        .EndDoc
End With

Printer.Print String(1, [Ô] [Ô])