Ir ao conteúdo
  • Cadastre-se
MooM

Código Impressão Excel VBA - Windows 8/Office 2010

Recommended Posts

Bom dia!

 

Eu tenho um código para imprimir em PDF no Excel, entretanto, não funciona no Windows 8/Office 2010.

 

Poderiam me ajudar, por favor?

 

 

 

=============================================================================================================================

Sub PDF()
 
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
 
MyLocal = "G:\INTERNACIONAL\SI -MODELO DE  INSTRUÇÃO DE EMBARQUE\MODELO NOVO SI MARÍTIMA FCL - 2015\PDF\"
Nome = Range("AB12").Value
Export = Range("T12").Value
Agent = Range("AB10").Value
PO = Range("AB6").Value
SDate = Now
 
If MsgBox("Gerar PDF", vbYesNo) = vbYes Then
Nome_Arq = MyLocal & "SI FCL --- " & Nome & " --- " & Export & " --- " & Agent & " --- " & PO & " --- " & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ".pdf"
Sheets("SEA FCL - SHIPPING INSTRUCTIONS").ExportAsFixedFormat Filename:=Nome_Arq, Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Application.DisplayAlerts = False
Else
Application.DisplayAlerts = False
End If
 
End Sub
================================================================================================================================

Compartilhar este post


Link para o post
Compartilhar em outros sites

O que significa não funcionar no seu caso? Aparece uma mensagem de erro ou simplesmente o código roda mas não gera o arquivo pdf? Se for erro, pode dizer qual é a mensagem e em qual linha ele ocorre?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Wendell,

 

Ele deu erro e mostrou a depuração no VBA na linha(ficou amarelo):

 

 

 

Sheets("SEA FCL - SHIPPING INSTRUCTIONS").ExportAsFixedFormat Filename:=Nome_Arq, Type:=xlTypePDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia MooM,
 
Por favor, verifique se este código deu certo para você, alterei algumas coisas aqui para ele funcionar:
 

--------------------------------------------------

Sub PDF()
 
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
 
Nome_Arq = MyLocal & "SI FCL --- " & Nome & " --- " & Export & " --- " & Agent & " --- " & PO & " --- " & Day(Now) & _
"-" & Month(Now) & "-" & Year(Now) & ".pdf"
 
MyLocal = "G:\INTERNACIONAL\SI -MODELO DE  INSTRUÇÃO DE EMBARQUE\MODELO NOVO SI MARÍTIMA FCL - 2015\PDF\"
Nome = Range("AB12").Value
Export = Range("T12").Value
Agent = Range("AB10").Value
PO = Range("AB6").Value
SDate = Now
 
If MsgBox("Gerar PDF", vbYesNo) = vbYes Then
Sheets("SEA FCL - SHIPPING INSTRUCTIONS").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arq, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.DisplayAlerts = False
Else
Application.DisplayAlerts = False
End If
 
End Sub

------------------------------------------

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×