Jean Nunes

Boa tarde! Preciso de uma ajuda! Tenho uma planilha em excel VBA, e preciso salvar alguns dados e imprimir utilizando o mesmo botão, eu executei este processo em dois botões mas para agilizar preciso saber como juntar os dois comandos. 'Gravar Dados de Vencimento Sub Dado_Vencimento() Worksheets("Vencimento").Rows("3:3").Insert 'Inserir Informações no Banco de Dados Worksheets("Vencimento").Range("A3") = Range("CPF") Worksheets("Vencimento").Range("B3") = Range("CLIENTE_CONTRATO") Worksheets("Vencimento").Range("J3") = Range("RESIDENCIAL_CONTRATO") Worksheets("Vencimento").Range("K3") = Range("CELULAR_CONTRATO") Worksheets("Vencimento").Range("c3") = Range("ContratoNº") + 1 Worksheets("Vencimento").Range("D3") = Range("DataEntrega") Worksheets("Vencimento").Range("E3") = Range("DataRetirada") Worksheets("Vencimento").Range("F3") = Range("Ferramentas1") Worksheets("Vencimento").Range("G3") = Range("Valor_Total") End Sub 'Imprimir contrato Sub Imprimir() ' IMPRIMIR Macro ' abrir configuração da impressora Application.Dialogs(xlDialogPrint).Show End Sub