[Resolved] lapszámok

Szia!

Makróval akarsz nyomtatni?
Peldányszámot akarsz, vagy nyomtatandó oldalak listáját?

Rakerestél már?
Én 1 perc alatt erre jutottam:
https://excelribbon.tips.net/T009487_Specifying_Print_Quantity_in_a_Cell.html

Imre

Ne haragudj, de nem értem a kérdést.

Ilyet nem lehet nyomtatásnál beállítani.
Két lehetséges út:
Egyik, hogy valaki elkészíti az N darab munkalapot másolgatással, és a növekvő sorszámozást ugyanabban a cellában minden lapon valamilyen automatikusan novekvő képlettel oldod meg. Ezt gondolom el szeretnéd kerülni, sőt, talán változó lehet, hogy hány darab példány lesz nyomtatva.

Másik lehetőség, hogy megpróbálni makróval ciklusban nyomtatni, ahol mindig ugyanabba a cellába minden példány nyomtatása előtt kicseréli az adatot a következő sorszámra

Van egy harmadik, makró nélküli lehetőség is, ha nem lényeges, hogy a tartalom Excelben legyen.
Word körlevél funkcióval nagyon egyszerűen meg lehtne csinálni.
Elkészül a sablon doksi, ami akár lehet Excelből átmásolt is, de jobb, ha Wordben készül.
Aztán Excelben csinálsz egy egy osztlopos táblázatot, ahol az egyesével növekvő sorszámok vannak.
A word-ben jelzed, hogy hol lenne a váétozó adat, majd egyesítéskor úgy nyomtat, hoyg minden példánynál behettesíti az aktuális számot.

Imre

Ennyi időm azért nincs! 🙂

Youtube, kereső, Word körlevél.
Van egy halom.

Imre

Szia Volusia!

Makróval egyszerűen meg lehet csinálni:

Sub Makró1()
‘
‘ Makró1 Makró
‘
‘ Billentyűparancs: Ctrl+i
‘

Dim i, s
Dim peldany

Range(„F7”).Delete

i = „Hány példányt szeretnénk nyomtatni?” & Chr(13) & Chr(13) & „”
peldany = InputBox(i)
If peldany = „” Then End
If peldany <> IsNumeric(peldany) Then End
peldany = Format(Abs(peldany), „#,##0”)

For s = 1 To peldany
Range(„F7”) = „Példányszám: ” & s & „.”
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next s

Range(„F7”).Delete

End Sub

ui:

Ha azt szeretnéd, hogy ne 1, 2, 3… legyen a lapszám, hanem 01, 02, 03….. akkor:

Range(„F7”) = „Példányszám: ” & Format(s, „##,00”) & „.”