Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Configuração para O...
 
Notifications
Clear all

Configuração para Ordem de Serviço

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
1,311 Visualizações
RSS
Filipeb
 Filipeb
(@filipeb)
Posts: 34
Eminent Member
Topic starter
 

Estou com uma duvida de como faço para programar o sistema de emissão de O.S.
Exemplo: No sistema ele preenche os campos do que ele precisa , e automaticamente ele preenche na planilha os campos correspondentes, e queria que quando fosse salvar o arquivo salvasse em pdf.

Sei que é grande a programação e que não vão me dar de lambuja haha.
Mas se alguem tiver alguma ideia de como faz , eu tento!
Fico agradecido!

Usuário e senha da planilha:
Filipe
456456f

"A inovação é o que distingue um Líder de um Seguidor."
~ Steve Jobs

 
Postado : 14/12/2016 11:03 am
 tnunes34
(@tnunes34)
Posts: 23
Eminent Member
 

Pera, ficou meio confuso.
Você já tem os comandos para preencher na planilha? Ou só quer o comando para salvar em pdf?

 
Postado : 15/12/2016 1:46 pm
Filipeb
 Filipeb
(@filipeb)
Posts: 34
Eminent Member
Topic starter
 

So para salvar em pdf

"A inovação é o que distingue um Líder de um Seguidor."
~ Steve Jobs

 
Postado : 19/12/2016 5:42 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja:
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/12/2016 6:03 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se a rotina abaixo te ajuda:

Sub IMPPDF()
On Error Resume Next

Plan1.Select

    MeuDir = (ThisWorkbook.Path) & ""
    MeuNome = "TESTEGUIMA & " - " "
    'Format(Now, "DD-mm-yy")
    
Range("A2").Select
        
 Thisworkbook.("Plan1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=MeuDir & MeuNome, Quality:= _
        xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

Application.CutCopyMode = False

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/12/2016 6:54 am
Forum Jump:
  Tópico Anterior
Próximo Tópico