Kdybys chtěl komentář či vysvětlit, dej vědět. Poštou posílám podkladové dokumenty. Na řádku počet+1 (v příkladu je to řádek 23) je uloženo jméno, pod kterým se výsledné PDF uloží (ve stejném adresáři jako mustr).

'
' touchwoodovo masakro pro L-Core a jeho účetní firmu ;-)
'
' Je třeba správně vyplnit konstanty, specificky pak počet proměnných
' a cesty k Acrobatu (reader nebo plnotučný), a zdrojovým souborům.
' Poslední proměnná (nezapočítává se) je jméno nově vytvořeného souboru
'
'

Const pocet = 22
Const pdfcesta = "c:\temp\lcore"
Const pdfsoub = "mustr2012.pdf"
Const acrobat = "c:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe"

'
' Konec uživatelsky nastavitelných konstant
'

Dim pole(1 To pocet + 1) As String
Dim pdf As String
Dim objShell As Object

pdf = pdfcesta & "\" & pdfsoub
Set objShell = CreateObject("WScript.Shell")

For i = 1 To pocet + 1
    bunka = "A" & i
    Range(bunka).Select
    pole(i) = Range(bunka).Value
Next
ShellApp = Shell(acrobat & " " & pdf, 1)

AppActivate ("Adobe Reader")
SendKeys ("{TAB}")

For i = 1 To pocet
   SendKeys (pole(i))
   SendKeys ("{TAB}")
Next
SendKeys ("^+S")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
SendKeys (pole(pocet + 1))
SendKeys ("{ENTER}")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)