Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

SBL Excel VBA Impressao etiqueta

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando instrução for next  vai fazer a impressão
e montar as etiquetas com base em um banco de dados.
'//========'
Enviada em: quarta-feira, 14 de maio de 2014 00:20
Para: O endereço de e-mail address está sendo protegido de spambots. Você precisa ativar o JavaScript enabled para vê-lo.
Assunto: Looping de Impressão
Boa noite! Olá Expedito, tudo bem?
Estou muito satisfeito desde que fiz a assinatura do seu site, realmente seus materiais didaticos são excepcionais e tem contribuido bastante no meu aprendizado. Estou com dificuldade em criar um looping de impressão e gostaria de pedir sua ajuda com uma macro.  Anexo o arquivo que pretendo utilizar para imprimir etiquetas.
Funcionalidade:
A planilha etiqueta deverá imprimir todas as linhas da planilha base consecutivamente imprimindo etiquetas diferentes.
'//=============='
Prezado Karllisson, bom dia,
Agradeço imensamente pela sua aquisição, aprender programação é muito ótimo para mente, Sucesso!
Karllisson, segue um macro com uma instrução For Next, que localiza a ultima etiqueta no banco de dados e faz o laço 1 a 1, isto é incrementando 1 na sua etiqueta e imprimindo,  observe que inseri um temporizador 1 ou 0.5, segundo para cada interação. Espero que seja isso que você esteja precisando. Bons Estudos.
Veja bem para fazer isso com uma certa facilidade, primeiramente grave um macro:
1 - ligue o gravador de macros,
2 - Selecione a area onde vai ser imprimida
3 - Defina a area de impressao
4 - Imprima.
obterá esses codigos: 
    '//=====' copie para dentro do seu macro
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AN$30"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    '//=======' VEJA O MACRO ABAIXO

Sub sbx_impressao_etiqueta()

Dim i As Long
For i = 2 To Plan7.Cells(Rows.Count, "a").End(xlUp).Row
    Plan5.Cells(2, "w").Value = Plan5.Cells(2, "w").Value + 1
    ActiveSheet.PageSetup.PrintArea = "$B$2:$AN$30"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Tempo 1#   'tempo 1 segundo espera para outra impressão
    Tempo 0.5  'meio segundo
Next i
Plan5.Cells(2, "w").Value = 1  'volta para primeira etiqueta.
End Sub
'//==========='
'temporizador.
Sub Tempo(SbTempo)
Dim VelhoTempo As Variant
If SbTempo < 0.01 Or SbTempo > 300 Then SbTempo = 1
VelhoTempo = Timer
Do
DoEvents
Loop Until Timer - VelhoTempo >= SbTempo
End Sub

'parte de um código para seus testes.....
'      With ActiveSheet.PageSetup
'        .PrintArea = "$C$51:$M$103"
'        .Orientation = xlLandscape
'        .PaperSize = xlPaperA4
'        .Zoom = 75
'      End With
'      ActiveWindow.SelectedSheets.PrintPreview 'visualizar impressão

Fique com Deus,
Expedito Marcondes.


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
icon SBL Excel VBA Impressao etiquetas banco dados