Bacana a idéia...
Mauro, essa visualização é só quando vai imprimir um arquivo que já está no formato de PDF, no Excel não aparece assim...
Acho que seria bacana uma "visualização" assim em form.
Não sei exatamente, mas para começar pode fazer uma gambiarra capturando a imagem e colocando em uma plan:
Worksheets("Plan1").Range("A1:G20").CopyPicture xlScreen, xlBitmap
Worksheets("Plan1").Paste Destination:=Worksheets("Plan2").Range("A1")
e depois fazendo um loadpicture no form
Uma das opções que daria para colocar é a quantidade de páginas, a primeira e a última página a ser impressa, opção de agrupamento ... ...
.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
(Ajuda do Excel)
Qualquer coisa grita o Mauro. o/
hahahahahaah
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/03/2013 11:26 pm