Re: Excel nyomtatási feladat

Sun, 19 Jan 2014 03:50:01 -0800 

Köszönöm Péter a segítséget... +  természetesen Zsuzsának is :)

valahogy így néz ki a kód:

Sub Nyomtatásos()
'
' Nyomtatásos Makró
'
' Billentyűparancs: Ctrl+á
'
    ChDir "E:\Excel"
    Workbooks.Open Filename:="E:\Excel\2014-01-01-001.xls"
    ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

    ChDir "E:\Excel"
    Workbooks.Open Filename:="E:\Excel\2014-01-01-002.xls"
    ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

    ChDir "E:\Excel"
    Workbooks.Open Filename:="E:\Excel\2014-01-01-003.xls"
    ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

    ChDir "E:\Excel"
    Workbooks.Open Filename:="E:\Excel\2014-01-01-004.xls"
    ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

    ChDir "E:\Excel"
    Workbooks.Open Filename:="E:\Excel\2014-01-01-005.xls"
    ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

már csak annyi segítség kell, hogyan tudom ciklusba rakni a file neveket...

Zsolt



2014. január 19. 12:37 Molnár Péter írta, <moln...@afg.hu>:

> Hello!
> En regen ugy csinaltam ilyet, hogy rogzitettem egy makrot.
> ebben a leendo feladat cilus magja volt.
> Csak csinalni kell.
> 1. Tehat makro rogzitese menupont
> 2.  Megnyitod az elos allomanyt
> 3. nyomtatod, amit akarst.
> 4. Makro rogzitesenek leallitasa.
> 5. Makro szerkesztese:
> Egy ciklust raksz a ciklusmag kore, amiben a szukseges valtozo dolgokat,
> mint allomanynev peldaul folyamatosan valtoztatod.
> Ennyi.
>
>
> --
> Udv:
> Molnar Peter
> http://www.petersoft.hu
>
>
> _______________________________________________
> Techinfo mailing list
> Techinfo@lista.sulinet.hu
> Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
> Illemtan: http://www.szag.hu/illemtan.html
> Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
>

_______________________________________________
Techinfo mailing list
Techinfo@lista.sulinet.hu
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://sulinet.niif.hu/

válasz