Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Género de "Impressão em Série" no Excel

354 views
Skip to first unread message

BD

unread,
Oct 24, 2005, 9:26:36 AM10/24/05
to
No Word na "Impressão em série" posso criar uma listagem dinamicamente
com dados duma determinada base de dados, criando tantas páginas
consoante o tamanho da BD, com o seguinte comando:

«nome do campo»
«Registo seguinte»«nome do campo»
que equivale à funçao
{ MERGEFIELD "nome do campo"}
{ NEXT }{ MERGEFIELD "nome do campo"}

Gostaria de saber se a mesma listagem dinâmica é possível no Excel,
esquecendo o Word?

Joao Tito Livio PT [MVP]

unread,
Oct 25, 2005, 11:13:01 AM10/25/05
to
Boas, verifica exemplo em:
http://www.microsoft.com/downloads/details.aspx?FamilyID=50162B6C-81A4-4D7D-8BBA-32CA4B62B7F3&displaylang=EN

Cpts
Tito

"BD" <bd_jlr...@hotmail.com> wrote in message
news:pvnpl1pq6eimhasgf...@4ax.com...

BD

unread,
Oct 25, 2005, 6:00:48 PM10/25/05
to
Obrigado Tito.
Eu não pretendo Tabelas Dinâmicas mas sim desenhar uma tabela com um
determinado número fixo de linhas e colunas. Configurar as colunas
para mostrar o conteúdo de campos duma BD aplicando alguns critérios e
quando imprimir a tabela a mesma seja repetida em várias páginas
quantas forem necessárias. Neste caso apenas desenhei a tabela para
ocupar uma página não precisando copiar a mesma tabela na mesma folha.
Por isso é que disse que é do mesmo género da "Impressão em Série" do
Word.
Desculpa se não me expliquei bem.

[]'s,
BD

Joao Tito Livio PT [MVP]

unread,
Oct 26, 2005, 10:14:18 AM10/26/05
to
Boas!

Já pensastes em fazer um Query à BD?, utiliza TOP 10 por ex...Assim limitas
o número de linhas ao numero de registos. Estás a utilizar Access?, queres
passar os valores da Tabela ou Querie para o Excel?

Cpts
Tito

"BD" <bd_jlr...@hotmail.com> wrote in message

news:j0atl1hbvu3e4lmun...@4ax.com...

BD

unread,
Oct 26, 2005, 4:37:46 PM10/26/05
to
Estou a utlizar uma BD do próprio Excel. Numa outra folha elaborada
por mim queria colocar formulas nas colunas de todas as linhas com os
campos que quero da BD. Se, por exemplo, nessa folha tenha definido 15
linhas para apresentar os dados e a BD, mediante um determinado Querie
retornar, por exemplo, 50 registos, pretendia que na impressão dessa
folha, automáticamente fosse imprimida 4 páginas (3x15 + 5) com o
mesmo design da folha (exactamente como na "Impressão em Série" do
Word). Não faço questão que seja apresentado todos os registos na
mesma folha na visualização mas apenas na impressão.

[]'s
BD


On Wed, 26 Oct 2005 15:14:18 +0100, "Joao Tito Livio PT [MVP]"

Joao Tito Livio PT [MVP]

unread,
Oct 27, 2005, 4:19:37 PM10/27/05
to
Boas!

>Se, por exemplo, nessa folha tenha definido 15
> linhas para apresentar os dados e a BD, mediante um determinado Querie
> retornar, por exemplo, 50 registos, pretendia que na impressão dessa
> folha, automáticamente fosse imprimida 4 páginas (3x15 + 5) com o
> mesmo design da folha (exactamente como na "Impressão em Série" do
> Word)

Se retorna registos parto do princípio que são os que tu queres correcto?,
Os Queries servem para filtrar a informação desejada por critérios.

>Não faço questão que seja apresentado todos os registos na
> mesma folha na visualização mas apenas na impressão.

O Office chama-se neste momento OFFICE SYSTEM, quero com isto dizer que cada
utilitário do mesmo executa uma função. Não sendo o Excel uma Base de Dados
mas uma sequência de Dados Linha a Linha na qual obtens informação, porque
não LINCAS ao ACCESS as Linhas e a partir dai imprimes no Word? ficavas com
o teu problema resolvido não?

Se quiseres usar o Excel sugiro que copies o RANGE obtido no Querie para um
novo Sheet já formatado

[sheet2!a5:a20]=[sheet1!a5:a20]
[sheet2!iq5:it20]=[sheet1!iq5:it20]

OU


With Worksheets("Sheet2")
.Range("A5:A20").Value = _
worksheets("Sheet1").Range("A5:A20)").Value
.Range("IQ5:IT20").Value = _
worksheets("Sheet1").Range("IQ5:IT20")
End With

Cpts
Tito

"BD" <bd_jlr...@hotmail.com> wrote in message

news:3govl19hnnr1mp4b1...@4ax.com...

BD

unread,
Oct 28, 2005, 3:43:39 PM10/28/05
to
Os registos são o que quero e se pretender algum filtro uso o filtro
automatico na coluna pretendida, depois copio o RANGE para um sheet já
formatado. Se resultar em mais de uma página tenho de copiar para
outras linhas mais abaixo a formatação e outro RANGE e repetindo o
processo para todas a páginas.
Tal como tu dizes cada utilitário tem a sua função, pelo que vou usar
definitivamente o Word formatado para imprimir os dados lincando ao
Excel. Não estou a ver a vantagem de lincar primeiro o Excel ao
Access, pelo que estou curioso.

[]'s,
BD


On Thu, 27 Oct 2005 21:19:37 +0100, "Joao Tito Livio PT [MVP]"
<jli...@online.mvps.org> wrote:

>Boas!
>

Joao Tito Livio PT [MVP]

unread,
Oct 28, 2005, 4:29:51 PM10/28/05
to
Boas?

Então quer dizer que concordas comigo que o Access é um Segeciador de Bases
de Dados Relacionais?

>>porque não LINCAS ao ACCESS as Linhas e a partir dai imprimes no Word?
>>ficavas com
>>o teu problema resolvido não?

Ou Melhor MDB, MSDE ou SQL Server para Base de Dados e Word ou Excel para
Office Automation?

Cpts
Tito


"BD" <bd_jlr...@hotmail.com> wrote in message

news:mis4m1t2siglnel4q...@4ax.com...

BD

unread,
Oct 31, 2005, 5:03:01 PM10/31/05
to
Claro que concordo. Por falares nisso nem tenho necessidade de abrir o
ficheiro *.txt no Excel pois posso abri-lo directamente no Access e
imprimi-lo no Word. Já agora precisava aplicar um filtro por Vendedor,
pelo que vou criar um Querie com esse parâmetro. Para isso estou
pensando em criar um formulário para introduzir o intervalo de
Vendedor inicial e Vendedor final. Tens alguma dica para que quando
existe dados para um determinado Vendedor imprime no Word, caso
contrário, vai para o Vendedor seguinte. Portanto tenho de imprimir
páginas separadas por Vendedor.

[]'s
BD

On Fri, 28 Oct 2005 21:29:51 +0100, "Joao Tito Livio PT [MVP]"

0 new messages