Zdar a silu -pp21-, dna 31.01.2003 si napisal(a):
> ÈSV - Odborné oddìlení <uv.csv@tiscali.cz>:
>
> >> Mam tu asi 250 Excelovskych tabulek ...
>
> > Jedno reseni bych mel, soubor - otevrit - oznacit vsechno a pak ve
> > stejnem okne nahore zvolit nastroje - tisk....
> > ...
> > Makro je zbytecne, jedna se o normalni funkci...
>
> Dobra rada nad zlato :(
>
> Ja osobne bych nechtel neco takoveho delat 250x.
>
> Uz prosim to makro nekdo napiste, vdyt to nebude nic sloziteho. Nikdy jsem
> to sice nedelal, ale IMHO to nebude vic jak 10-20 radku.
>
> treba takhle (hodne zhruba napsane)
>
> soubory = (neco co prida do teto promenne pole souboru v danem adresari)
> for each soubor in sobory
> workbook.open(soubor)
> activeworkbook.print
> activeworkbook.close
> next
>
>
> Nerikejte mi, ze by to nejak takhle neslo...
>
> -pp21-
>
>
>
>
islo sorry ze som sa neozval vcera:
skopirovat as is:
Sub tlac()
myPrintFiles = Application. _
GetOpenFilename("Excel soubory (*.xls), *.xls", _
, "Otevri ~ vytlac ~ Zavri", , True)
For i = 1 To UBound(myPrintFiles)
Workbooks.Open myPrintFiles(i)
ActiveWorkbook.PrintOut
Workbooks(myPrintFiles(i)).Close
Next
MsgBox "soubory vytlaceny"
End Sub
----------------
s pozdravom
AleXXX
--
Remember: there are no strangers in the world,
only friends who have not yet met.
This archive was generated by hypermail 2.1.2 : 31. 01. 2003, 09:02 CET