Notifications
Clear all

impressão

14 Posts
2 Usuários
0 Reactions
3,747 Visualizações
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Boa noite a todos

Gostaria de saber se tem com criar uma macro (ou poderia ser em VBA), para impressão apartir de uma Célula.
estou anexando o arquivo para maiores entendimentos.
tenho uma etiqueta a ser impressa , mais dependendo de quantos volumes, eu teria que imprimir mais de uma etiqueta,
gostaria de quando a célula indicasse um numero de volumes , seria executada uma macro ou um codigo vba para imprimir todas as etiquetas
de uma vez.
Ai vcs vão me falar " É só apertar CTRL+P e indicar quantas etiquetas vc quer" , è, mais não é tão simples assim,
Por que a planilha busca informações de uma tabela , e as etiquetas são criadas uma embaixo da outra (uma de cada, só que algumas eu preciso imprimir mais de uma etiqueta.
Vendo a planilha em anexo vcs vão entender.

Obrigado
até mais

 
Postado : 14/08/2013 9:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Humberto

Estou movendo teu tópico para o fórum adequado, VBA & Macros.

Abraço.

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

 
Postado : 15/08/2013 4:29 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Humberto, em seu modelo temos 3 etiquestas e a Área e Impressão está somente na Etiqueta1, então antes de continuarmos gostaria de saber :

A impresão é feita em papel comum ou proprios para etiquetas com tamanhos definidos ?
Cada etiqueta será impressa em uma folha separada ou todas na mesma folha ?

Se for uma etiqueta por folha é mais simples criar rotina para tal, mas caso contrario eu ainda não vi, teriamos de aguardar mais alguma ajuda.

[]s

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

 
Postado : 15/08/2013 5:58 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Use a pesquisa do fórum!
Talvez te ajude...
viewtopic.php?f=10&t=5193

Att

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

 
Postado : 15/08/2013 10:16 am
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Boa noite a todos
cada área è uma etiqueta, è uma etiqueta debaixo da outra, valores referente a tabela ao lado da etiqueta, O papel é próprio para fazer etiquetas com tamanhos definidos.
Eu não coloquei toda a área de impressão, por que tomei estas três áreas (etiquetas) só com exemplo, mais o arquivo completo pode chegar a mais de 30 etiquetas, mais cada uma referente há uma linha da tabela ao lado, sendo que algumas etiquetas vou imprimir mais se 1 dependendo de quantos volumes for o Código.
Mais pensando de um modo mais simplificado, vamos supor que eu tenho apenas uma etiqueta, eu queria imprimir 4 volumes, ou seja, 4 cópias da mesma etiqueta.
Então eu queria saber como imprimir a partir de uma célula ,
Ex: se a célula quantidade de volumes for 4 , então ia ser impresso 4 Cópias da mesma etiqueta.

Espero que eu tenha explicado bem
Desde de já agradeço pela ajuda
att mais
boa noite

 
Postado : 15/08/2013 9:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se seria isto, fiz uma composição para 10 Etiquetas, nomeando os Ranges como "sEtiqueta1 até sEtiqueta10", então a qde totaltem de ser 10, se for mais tem de ajustar a rotina e criar mais ranges nomeados seguindo a sequencia :"sEtiqueta11 até sEtiquetaxx".

Faça os testes e qq duvida retorne.

"Criar Etiquetas por Quantidade"

[]s

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

 
Postado : 16/08/2013 8:39 pm
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Boa noite a todos
em partes o post do Sr Mauro Coutinho ajudou, mais estou tendo dificuldade para criar mais que 10 etiq. , pois na planilha são varias etiquetas,
aonde estava escrito Empresa na verdade é o Código que busca da tabela, depois vem Data e por ultimo TP, quanto mais linhas eu tenho na tabela amarela, mais etiquetas serão criadas,
dei o nome para os campos amarelos de sEtiqueta1 até sEtiqueta110, que é mais ou menos oque eu vou usar de etiq. , mais na hora de preencher as etiquetas, aparece um erro de macro.
busco as informações da tabela amarela ao lado das etiquetas.

estou postando o modelo novamente com as alterações feitas pelos senhores.

Obrigado

att mais

 
Postado : 20/08/2013 9:12 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Humberto, os campos da etiqueta a ser preenchida é só ajustarmos na rotina uma vez que alterou, antes eram 3 e agora são 4.

Antes de continuar, você disse que a impressão é feita em papel proprio para etiqueta, então pergunto :

1º ) Que tipo / modelo de papel é ? Continuo ? A4 ?
2º ) A impressão é continua, ou é alimentada folhas manualmente ? Quero dizer : Se temos 110 etiquetas, utilizaríamos 11 folhas com 10 etiquetas ?

3º ) É necessário criar antes as etiquetas e depois Imprimir ? Ou podemos criar e enviar diretamente para a impressora ? Desta forma zeramos as variaveis, limpamos os campos das etiquetas que já foram impressas e incrementamos novamente com as proximas etiquetas.

[]s

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

 
Postado : 21/08/2013 5:56 am
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Boa noite Mauro
A etiqueta tem que ter 3 informações codigo,Data e tp.
Eu utilizo um rolo de etiquetas, que sai uma a uma , e é impresso numa impressora tipo Zebra, uso papel especifico para etiq.
a impressão é continua, ou seja, uma embaixo da outra, se tiver 100 etiq, vão ser criadas uma debaixo da outra , no exemplo
eu coloquei só 10, para se ter um exemplo de como que elas ficariam, mais o arquivo original é um pouco extenso,
No caso eu vou criar as etiquetas, conferir se não tem nada de errado nas informações digitadas e depois imprimi-las,
desde de já agradeço pelas informações,

Obrigado
att mais

 
Postado : 21/08/2013 8:29 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Humberto, alterei a linha de raciocínio inicial e criei um modelo da etiqueta, nomeie os ranges, e a cada etiqueta criada é transferida para a coluna correspondente.

Faça os testes e veja se agora acertamos.
Criar Etiquetas por quantidade

Qualquer duvida retorne.

[]s

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

 
Postado : 22/08/2013 6:48 am
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

Boa noite

o arquivo que vc me passou, estou formatando e fazendo alguns testes, por enquanto ele parece estar funcionando bem,
mais eu gostaria de mais um ajuda sua, quando eu fosse imprimir estas etiquetas, será que tem com criar uma macro
que imprima todas as etiquetas criadas.
obrigado
até mais

 
Postado : 29/08/2013 8:55 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

será que tem com criar uma macro
que imprima todas as etiquetas criadas.
até mais

Humberto, faça uma Busca no Forun pelas palavras "PrintOut" , "PrintPreview" e "PrintArea" e encontrara várias rotinas refrente a Impressão das planilhas.
Vale ressaltar tambem que se olhar na ajuda do VBA sobre os Metodos "PrintOut" , "PrintPreview" e a Propriedade "PrintArea" tera a definição e exemplo de como utilizar cada um.

Qualquer duvida retorne.

[]s

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

 
Postado : 30/08/2013 5:41 am
(@humberto)
Posts: 76
Estimable Member
Topic starter
 

boa noite

andei procurando no forum, mais como eu entendo pouco de excel Vba, não me ajudou muito.

Obrigado pela ajuda

 
Postado : 01/09/2013 4:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

boa noite
andei procurando no forum, mais como eu entendo pouco de excel Vba, não me ajudou muito.
Obrigado pela ajuda

Humberto, nas próximas vezes que se utilizar de qualquer Forum, procure ser mais direto, responder simplesmente "não me ajudou muito", fica um pouco vago.

A rotina abaixo imprime a aba ativa, coloque um Botão na aba em questão e associe a esta rotina, e depois que conferir as etiquetas geradas é só clicar e imprimir, lembrando que aqui não estamos definindo a área de impressão nem a qde de cópias, ou seja será impresso conforme a configuração que você definiu para a pagina.

Sub Print_Active_Worksheet()
'This macro prints the active or currently visible worksheet in Excel

    ActiveSheet.PrintOut

End Sub

[]s

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

 
Postado : 02/09/2013 12:17 pm