Re: Excel nyomtatási feladat

Zsolt Nagy nagyzsolt80 at gmail.com
2014. Jan. 19., V, 12:49:25 CET


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, <molnarp at 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 at 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/
>
--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: <http://lista.sulinet.hu/pipermail/techinfo/attachments/20140119/b123d938/attachment.html>


További információk a(z) Techinfo levelezőlistáról