Re: Excel nyomtatási feladat

[Szalayné Tahy Zsuzsa]

Amit én javasoltam, csak annyiban tért el ettől, hogy a ciklusmagban
szerepel a következő fájlnév kijelölése és a ciklus addig ment, amíg talált
valamit a cellában. (Itt a kiegészítés, hogy a While és cellából érték
kiolvasása is meglegyen az utókornak. :-))

While Not ActiveCell.Value = ""
    a = "E:\Excel\" & ActiveCell.Value
   ...
    ActiveWorkbook.Close
    ActiveCell.Offset(1, 0).Range("A1").Select
Wend

SzTZs

2014/1/19 Zsolt Nagy <nagyzsolt80 at gmail.com>

> 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/
>>>
>>
>>
>>
>>
>
>
>
>
> _______________________________________________
> 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/6ef9a7d4/attachment.html>