Kopiraj taj excel file u neki drugi folder zatim:
Stisni ALT + F11 (insert > module) i kopiraj ovo:
Citiraj:
Option Explicit
Sub PrintOneCellAtATime()
Dim cell As Range
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
If Len(cell.Text) Then cell.PrintOut Copies:=1
Next cell
End Sub
|
Stisni ALT + Q , sad ce te vratit u excel, Ako zelis pokrenuti skriptu moras prvo podesit ADOBE PDF kao glavni printer unutar excela, nakon toga stisnes ALT + F8 i kliknes RUN.
jedino treba naci nacin kako da se PDF generira u jedan file...jel on sad svaku brojku zasebno kreira...to znaci da bi moro 15k puta stisnuti save as
