Imprimir nº Ordem de Serviço na Sequencia, automatico

[TELEFONIA FIXA]

Pessoal sera que é possivel:

Criei uma Ordem de serviço no excel pretendo imprimir pra controlar os serviços autonomos, executados por minha turma.

Eu queria que o campo onde vai o nº da Ordem se serviços fosse mudado na sequencia, tipo assim na tela do PC o nº campo começa zero eu imprimo e automatico aparece na impressao o nº 00001 eu imprimo a 2º ordem e aparece automatico o nº 00002, e assim vai nunca tera nº repetido e se eu imprimir 10 folhas seriam de 00001 a 00010>

E mesmo eu fechando tudo desligando o PC, mais tarde ao precisar imprimir de novo partiria da nº 00011 automatico

[nahrv]

Olá!

Bom, tudo depende de como você quer fazer as coisas...cada OS é um arquivo diferente? Ou uma planilha diferente em uma mesma pasta? Ou você preenche o modelo e imprime, sem salvar arquivos?

[TELEFONIA FIXA]

Olá!

Bom, tudo depende de como você quer fazer as coisas...cada OS é um arquivo diferente? Ou uma planilha diferente em uma mesma pasta? Ou você preenche o modelo e imprime, sem salvar arquivos?

Resumindo, o que eu quero, nao tem como então, poderia ate ser um esquema de ir salvando varias OS (arquivo) na sequencia, mas criar e numerar uma por uma manual.

Daria até pra eu depois passar as informações pra essas O S no pc né, tipo atualizar

[nahrv]

Tem como fazer sim! Quer me mandar seu modelo de OS?

http://www.sendspace.com/

[TELEFONIA FIXA]

Segue minha planilha: (onde preciso do nº O S gerada em sequencia automatica 00001 00002, etc

http://www.4shared.com/document/8ewFDxiT/ORDEM_DE_SERVIOS_4SHARED.html

[nahrv]

Er..sorry, tem como upar pelo sendspace? O firewall de onde acesso bloqueia o 4shared...

[TELEFONIA FIXA]

nahrv disse:

Er..sorry, tem como subir pelo sendspace? O firewall de onde acesso bloqueia o 4shared...

Não sei se fiz correto não conheço sendpace:

http://www.sendspace.com/file/37u4b9

[nahrv]

hauhauau...o firewall bloqueou porque tem "4shared" no endereço...

[TELEFONIA FIXA]

Agora sem 4Shared:D:D:D:D

http://www.sendspace.com/file/kt8eai

[nahrv]

TELEFONIA FIXA,

Segue exemplo: http://www.sendspace.com/file/sgaanu

Neste, toda vez que você clicar no ícone de impressora que coloquei, vai atualizar o número e imprimir. Aí ele mantém o último número e atualiza próxima vez que você clicar na impressorinha.

Agora, se você quiser manter cópias das OSs salvas, adicione esse código antes de 'end sub' :

ActiveSheet.Shapes.Range(Array("Picture 8")).Select

Selection.Delete

ChDir "C:\"

ActiveWorkbook.SaveAs Filename:="C:\OS " & X & ".xlsm", FileFormat:= _

xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

No caso, salva na pasta 'C:', mas mude o caminho para qualquer pasta que quiser salvar!!

Diga se ficou do jeito que você queria, ok?

Ah..pode mudar manualmente o número, se precisar também! por exemplo, se a última OS que você fez foi a 32, coloque 32 na planilha que, quando clicar no ícone, vai imprimir a 33.

[ricosantos]

TELEFONIA FIXA,

Segue exemplo: http://www.sendspace.com/file/sgaanu

Neste, toda vez que você clicar no ícone de impressora que coloquei, vai atualizar o número e imprimir. Aí ele mantém o último número e atualiza próxima vez que você clicar na impressorinha.

Agora, se você quiser manter cópias das OSs salvas, adicione esse código antes de 'end sub' :

ActiveSheet.Shapes.Range(Array("Picture 8")).Select

Selection.Delete

ChDir "C:\"

ActiveWorkbook.SaveAs Filename:="C:\OS " & X & ".xlsm", FileFormat:= _

xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

No caso, salva na pasta 'C:', mas mude o caminho para qualquer pasta que quiser salvar!!

Diga se ficou do jeito que você queria, ok?

Ah..pode mudar manualmente o número, se precisar também! por exemplo, se a última OS que você fez foi a 32, coloque 32 na planilha que, quando clicar no ícone, vai imprimir a 33.

Poderia UP novamente o exemplo novamente ?

[proeletrica]

Bom dia nahrv

È possivel tú postar novamente a planilha exemplo: http://www.sendspace.com/file/sgaanu , pois a mesma não está abrindo.

abraço

[Tarcisio Alves de Paula]

Bom dia !

Gostaria saber como faço para imprimir um documento no excel aonde a numeração de cada formulario seja automatico.

Requisição de material.xls

[Basole]

@Tarcisio Alves de Paula seja bem vindo ao forum.

Como assim ?

Ao imprimir "Requisição (cotar este modelo)" as textbox alteram a numeração, seguindo um sequencia?

Seria isso?

 

[Tarcisio Alves de Paula]

correto, isso mesmo.

A cada impressão que eu fizer, a numeração iria acrescentando. E como ficaria se fosse feito em uma gráfica e cada folha do bloco saísse numerado.

[Basole]

Segue em anexo veja se é isso:

 

Aperte as Teclas Cltr + q para imprimir e alterar a sequencia numerica.

Requisição de material(1).xls

[Tarcisio Alves de Paula]

Bom dia !

 

Quero te agradecer pela ajuda, muita obrigado. A ideia é essa, alterar a numeração a cada impressão porém gostaria se for possivel de ter a opção de imprimir varias paginas seguencial em apenas um click. Por exemplo se eu quiser imprimir 10 paginas, eu digitaria a quantia de 10 ou se quisesse 20, 30, 100. Ou seja que eu tivesse a opção de digitar a quantidade de paginas.

 

[Basole]

Segue com a alteração. 

 

Requisição de material(2).xls

[Tarcisio Alves de Paula]

Nao estou conseguindo a planilha que voce fez. Tem como enviar de uma outra maneira.

[deciog]

Tarciso

 

Tenta novamente baixar o arquivo, foi resolvido o problema de erro em arquivo.

 

Décio

 

[Tarcisio Alves de Paula]

Bom dia !

 

Fiz os testes, está funcionando corretamente. Ficou muito bom. Quero te agradecer pela ajuda e pelo empenho. Muito obrigado

 

[BrunoRafaell]

Olá pessoal! 

 

Estou com o mesmo problema do amigo Tarcísio. Preciso imprimir um formulário. Mas quero que gere um código diferente para cada impressão. Outra coisa, ao selecionar para imprimir, por exemplo quero fazer 10 cópias, todas elas sairão na sequencia.

adicionado 1 minuto depois

@deciog , tem como você me enviar a planilha? Estou com o mesmo problema. 

[RONALDOVERTIN]

@nahrv bom dia!

eu gostaria de saber como faço para colocar a sequencia numérica sempre que for imprimir a próxima folha em branco colocando o numero onde tá o nº 1

 

Atenciosamente,

 

Ronaldo

RAE VERTIN.xlsx

[OreiaG]

3 horas atrás, RONALDOVERTIN disse:

eu gostaria de saber como faço para colocar a sequencia numérica sempre que for imprimir a próxima folha em branco colocando o numero onde tá o nº 1

 

Cole o código abaixo em um módulo comum.

O código poderá ser executado por meio de um botão que você pode colocar na planilha ou por uma figura ou por atalho de teclado.

 

Sub ImprimePlanAtiva()
 [U9] = [U9] + 1: ActiveSheet.PrintOut
End Sub