Ajuda Macro VBA

[zinhovba]

Bom dia!!!

Para não causar problemas à você, seria melhor distribuir dados falsos (planilha modelo).

Mas se não poder, então

Att

[tiagonmuniz]

Recebeu o e-mail??

[zinhovba]

Boa tarde!!

Eu não tenho acesso no trabalho, só depois da faculdade que vou poder olhar seu arquivo.

Att

[tiagonmuniz]

Ok... sem problemas eu entro no PC a meia noite e fico até as 8hs... na empresa eu reviso. valeu.

[zinhovba]

Bom dia!!

Finalmente eu testei, para mim deu certo, veja se é isso...

Sub FoiTestado()
Worksheets("REENTREGA VAREJO").PageSetup.PrintArea = Range("B2", Range("G65536").End(xlUp).Offset(2)).Address
'Application.Dialogs(xlDialogPrinterSetup).Show 'Caso queira escolher as impressoras instaladas
ActiveSheet.PrintOut 'Essa linha vai executar a impressão para a impressora Padrão
End Sub

Outra coisa caso tenha problema com a Àrea, tente limpa-la antes (ActiveSheet.PageSetup.PrintArea = "")

[tiagonmuniz]

Cara Ficou simplesmente 10...

Muito Obrigado.

Confirma se rececebeu os arquivos.

Obrigado.

[Patropi]

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.