Bom dia!!

Enquanto isso, poderia postar um exemplo COMPACTADO??

Att

Olá Alexandrevba

Segue o arquivo. Bem simples mas dá pra ver o que necessito.

Imagine que quero imprimir várias etiquetas utilizando o banco de dados. Preciso que a macro pegue cada linha selecionada, pelo preenchimento da coluna A, coloque nos campos correspondentes da etiqueta e imprima, uma a uma até imprimir todas selecionadas.

Grato

EngAdriano

Bom dia!!

Por favor leia as regras do fórum antes de postar!!!
Nossas Regras:
viewtopic.php?f=7&t=203

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

Espero contar com sua colaboração, pois nas infrações seguintes será advertido!

Att

Boa tarde!!

Tente...

Option Explicit

Sub Impres_AleVBA()
Dim i As Long, lrow As Long

With Worksheets("Plan1")
    lrow = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        If .Range("A" & i).Value = "x" Then
            .Range("B" & i & ":F" & i).Copy Worksheets("Plan2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    Next i
End With

End Sub

Boa Noite AlexandreVba

Desculpe pelo envio da planilha de forma errada.

Quanto ao código que enviou, o mesmo copia para a plan2 as linhas selecionadas, mas não preenche a etiqueta e nem imprime.

Pelo pouco que sei em vba, acredito que o seu código poderia funcionar assim:
-As céluas da etiqueta teriam as fórmulas de procv e proch para ser preenchida automaticamente;
-Ao executar a sua macro, ela copiaria as linhas selecionadas para plan2, como esta fazendo, e já faria o disparo da impressão da primeira linha, excluiria a primeira linha,
-Ao excluir a primeira linha a segunda passaria a ser a primeira e então um novo disparo de impressão e assim sucessivamente até imprimir todas as linhas.

Porém não tenho idéia de como fazer isso, agradeceria muito se pudesse me ajudar.

Grato

AdrianoPires