trindade69,

Boa Tarde!

Veja se assim atende a sua necessidade.

ISSO MESMO QUE EU QUERO, WANGER. SÓ QUE A PLANILHA ORIGINAL AO INVÉS DE 3, TEM 115. COMO DEVO FAZER? VC ACHA MELHOR EU ENVIAR O ARQUIVO OU VOCÊ ME DIZ COMO DEVO FAZER EM CADA UMA DELAS.
AGRADEÇO PELA AJUDA,

ATENCIOSAMENTE,
JAILSON

Boa noite!!

Olá trindade69 , por favor leia as regras do fórum os arquivo devem ser compactados!!!

Nossas Regras
viewtopic.php?f=7&t=203
Att

OLÁ WGNER
SEGUE A PLANILHA ORIGINAL. POR FAVOR, PRECISO QUE OS BOTÕES IMPRIMA OS VALES.

OBRIGADO,
JAILSON

Tentando auxiliar,
uma pequena alteração no codigo do colega Wagner Morel, assim não há necessidade de repetição do mesmo para cada "botão"

Sub Navega()
Dim NomeObjeto As String, Escrito As String
'
'Identifica qual foi o objeto chamado/clicado (Caller)
NomeObjeto = Application.Caller
'Identifica nome do arquivo
Escrito = "V0" & Mid(ActiveSheet.DrawingObjects(NomeObjeto).Text, 6, 3)

    Sheets(Escrito).Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Sheets("cacifes").Select

End Sub

Reinaldo,

Bom Dia!

Muito bom mesmo!