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