IMPRIMIR PLANILHA EXCEL

AMELORP 28/03/2011 09:45:49
#369407
Estou usando o seguinte código....queria imprimir esse arquivo ao inves de abrir...como eu faço? alguem poderia me ajudar?

Set Plan = CreateObject([Ô]excel.application[Ô])
Plan.Workbooks.Open App.Path & [Ô]\\Historico.xlsx[Ô]
Plan.Visible = True
Plan.UserControl = false
With Plan

.Range([Ô]A7[Ô]).Value = [Ô]Nome do Aluno: [Ô] & nomealuno

end with
ALMIRSAFADI 29/03/2011 20:55:57
#369666
Amigo, eu aprendi aqui neste forum, qualquer ação em VBA, faça o seguinte, abra a sua planilha mande gravar macro, ai mande imprimir, e no VB retire o comando OPEN
ALMIRSAFADI 29/03/2011 21:00:34
#369667
Desculpe, depois de imprimir mande parar a gravação de macro, e mande editar macro, o código vai estar lá
AMELORP 30/03/2011 07:27:12
#369684
Citação:

:
Desculpe, depois de imprimir mande parar a gravação de macro, e mande editar macro, o código vai estar lá



Na verdade não estou usando macro...esse código esta dentro do VB mesmo. Só queria saber como faço pra que o objeto Plan receba o comando de impressao....
JONATHANSTECKER 30/03/2011 08:12:48
#369685 Resposta escolhida 
Set Plan = CreateObject([Ô]excel.application[Ô])
Plan.Workbooks.Open App.Path & [Ô]\\Historico.xlsx[Ô]
Plan.Visible = True
Plan.UserControl = False
With Plan
    .Range([Ô]A7[Ô]).Value = [Ô]Nome do Aluno: [Ô] & nomealuno
End With

[ô] Método para imprimir
Plan.ActiveWorkbook.PrintOut
AMELORP 30/03/2011 10:58:28
#369699
Citação:

:

Set Plan = CreateObject([Ô]excel.application[Ô])
Plan.Workbooks.Open App.Path & [Ô]\Historico.xlsx[Ô]
Plan.Visible = True
Plan.UserControl = False
With Plan
    .Range([Ô]A7[Ô]).Value = [Ô]Nome do Aluno: [Ô] & nomealuno
End With

[ô] Método para imprimir
Plan.ActiveWorkbook.PrintOut




ok resolvido....valeu
Tópico encerrado , respostas não são mais permitidas
Voltar