Outro Salvar dados e imprimir

[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