[Anonymous]

olá, tenho uma folha com várias células unidas(mescladas).
ora, como nem todas serão preenchidas acontece que na impressão aparecem todas, pelo que só desejo imprimir aquelas que contêm valores.
não sei como fazer, visto estas células unidas e sem valores fazerem parte da área de impressão sem o desejar.
se me pudessem ajudar, agradecia.
bem haja a todos e ao fórum.

[jorgerod]

boas,

podes colocar aqui um exemplo através de uma planilha?

[Anonymous]

aqui vai o exemplo.
se reparar, das linhas 9 a 25 não existem valores, mas pelo facto de estarem unidas, aparecem em linhas de grelha na impressao. eu apenas desejava que não aparecessem estas.
obrigado
exemplo.xlsx

[jorgerod]

boas,

pelo que vi, um código possível poderá ser o seguinte:

private sub workbook_beforeprint(cancel as boolean)
on error goto errhandler
if activesheet.name = “funcionários (20h00 as 08h00)” then
application.enableevents = false
with activesheet
on error resume next
.columns(“a”).specialcells(xlcelltypeblanks).entirerow.hidden = true
.printout
.columns(“a”).specialcells(xlcelltypeblanks).entirerow.hidden = false
on error goto 0
end with
cancel = true
end if
errhandler:
application.enableevents = true
end sub

o evento workbook_beforeprint funciona automaticamente quando se pretende imprimir, ou seja, vai verificar quais são as linhas que estão vazias e apenas imprime as linhas que tenham a coluna “a” preenchida.

reenvio a planilha com o código incorporado, para verificares se está correcto. o código está inserido no próprio workbook, a fim de poder ser executado automaticamente quando se pretende imprimir.

fica bem e diz qq coisa, ok?

obrigado.

exemplo.zip

[Anonymous]

bom dia,
resulta!
efetivamente, quem sabe, sabe!
sò tenho pena de ainda não dominar bem o vba, mas lá chegarei.
parabéns pelos conhecimentos, pela sua iniciativa e simpatia.
obrigado.

[Author]

Posts