[Samuel Henriques]

Bom dia pessoal.

Tenho uma dúvida sobre impressão em série no Excel….

É o seguinte:
Eu tenho um ficheiro com várias planilhas para controle de Packing List para envios internacionais de material.
Na última planilha eu devo imprimir item por item uma tabela chamada PALETE INFO que deve ir colada na respetiva palete, cada uma com os seus dados (pesos, medidas, etc…), dados este que estão carregados em outra planilha.

O que eu pretendo é arranjar uma forma de por exemplo clicar num botão “imprimir” e esta tabela (PALETE INFO) vai buscar os dados respetivos à outra planilha e imprime… Só que deve ser feito de forma sequencial e automática, para eu não ter que estar sempre a mandar imprimir item por item…

Eu já tentei com um macro, mas o problema é que ao gravar a macro eu tenho que ir à “PALETE INFO” usar o “=” para ir buscar os dados a outra planilha, e depois imprimir (eu tenho packing list com 30/40 linhas)… Ou seja o trabalho é o mesmo que se eu imprimisse diretamente linha por linha….

Será que tenho como fazer isso de forma automática?

Tomei a liberdade de adicionar a planilha de excel que criei, para que possam compreender melhor…

Muito obrigado.

[Samuel Henriques]

O primeiro envio do ficheiro deu erro por razões de segurança…

 

[Samuel Henriques]

Não dá para enviar o ficheiro……

[Anónimo]

Boas,

já foi resolvido o erro no upload dos ficheiros, não dava devido á extensão.

[jorgerod]

Samuel,

Quando puder, envie o ficheiro, ok?

Obrigado.

[Samuel Henriques]

Aqui vai…

 

Attachments:

You must be logged in to view attached files.

[Samuel Henriques]

Obrigado (por antecipação)!

[jorgerod]

Olá Samuel Henriques,

Estive a ver e julgo que consegui aquilo que pretendes, ou seja, no caso do exemplo, de uma só “virada”, imprimires o conteúdo da tua “Packing List” (3 folhas), apresentando o template que tens na tua “Palete Info”.

Envio-te o ficheiro para experimentares, sendo que o código VBA está contido no botão a que denominaste Botão 4.

O código, é o seguinte:

‘—————————————————————————————
‘ Procedure : Botão4_Click
‘ DateTime  : 14-03-2014 22:30
‘ Author    : JRod (Excel MVP)
‘ Purpose   : Cria impressão em série. Ideia base de Tom Ogilvy (Excel MVP)
‘—————————————————————————————
‘
Private Sub Botão4_Clique()
    Dim rng As Range
    With Worksheets(“Packing List”)
        Set rng = .Range(.Cells(25, 1), .Cells(25, 1).End(xlDown))
    End With
    For Each cell In rng
        Worksheets(“Palete Info”).Range(“A19”).Value = cell.Value
        Worksheets(“Palete Info”).Range(“C18”).Value = cell.Offset(0, 1).Value
        Worksheets(“Palete Info”).Range(“F19”).Value = cell.Offset(0, 6).Value
        Worksheets(“Palete Info”).Range(“K19”).Value = cell.Offset(0, 7).Value
        Worksheets(“Palete Info”).Range(“A25”).Value = cell.Offset(0, 5).Value

        Worksheets(“Palete Info”).PrintOut
    Next

        Worksheets(“Palete Info”).Range(“A19”).Value = “”
        Worksheets(“Palete Info”).Range(“C18”).Value = “”
        Worksheets(“Palete Info”).Range(“F19”).Value = “”
        Worksheets(“Palete Info”).Range(“K19”).Value = “”
        Worksheets(“Palete Info”).Range(“A25”).Value = “”

End Sub

Nota: para que imprimas só as linhas que deves imprimir, a coluna A da tua Packing List só deverá conter os números a que correspondem dados na mesma linha, ou seja, como está no exemplo que te envio, são 3 linhas com dados para impressão.

Fica bem e diz qualquer coisa sobre o assunto, ok?

JRod

Attachments:

You must be logged in to view attached files.

[Autor]

Artigos