Dim Imprimir as string
Imprimir = MsgBox("Deseja Imprimir a Ordem de Serviço?", vbOKCancel, "Confirme a Impressão da Ordem de Serviço...")
If Imprimir = vbCancel Then
'Coloque aqui a rotina em caso de nao deseje imprimir a OS
Else
Sheets("OS").PrintOut
End If
Adeque a sua necessidade.
Se nao conseguir disponibilize o codigo que vc usa para salvar.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 13/12/2015 2:20 pm