Re: Excel nyomtatási feladat

[Zsolt Nagy]

Mindenkinek köszönöm a segítségét...

megszületett a végső kód :)

A1 .... A100-ig felvittem a file neveket ahogy Zsuzsa említette...

*Sub Nyomtatásos()*
*'*
*' Nyomtatásos Makró*
*'*
*' Billentyűparancs: Ctrl+á*
*'*
*For i = 1 To 100*

*    ChDir "E:\Excel"*

*    Workbooks.Open Filename:="E:\Excel\" & Range("A" & Trim(CStr(i)))*

*    ActiveWorkbook.PrintOut From:=3, To:=3, Copies:=1, Collate:=True, _*

*    IgnorePrintAreas:=False*

*    ActiveWorkbook.Close*

*Next*

*End Sub*


Beillesztetem, ha esetleg valakinek a későbbiekben szüksége lehet
ilyesmire...

Zsolt


2014. január 19. 12:49 Zsolt Nagy írta, <nagyzsolt80 at gmail.com>:

> 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/ba5231ca/attachment.html>