Excel VBA Planilha Impressao etiqueta

Planilha Excel VBA Impressão etiqueta

Planilha Excel VBA Impressão etiqueta

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: [email protected]
Assunto: Looping de Impressão

Boa noite! Olá Sr. Marcondes, tudo bem?
Estou muito satisfeito com minha participação na área de membros do seu site – Adquirir pelo PagSeguro, realmente seu material didático são muito bom, e tem contribuído 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 área onde vai ser imprimida
3 – Defina a área de impressão
4 – Imprima.
obterá esses códigos:

‘//=====’ 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.