tlac urcitych stran

A v čem to chceš tisknout ?

momentalne mam pdf, ale aj program mi ponuka klasicke okno volby tlace - vsetko, aktualna, vyber. Mozem do vyberu napisat ze 3,6,9,12 . . . . a tak pokracovat az niekde do 1500 ale to sa zblaznim nez to napisem

nech si vygenerovat excelem radu =A1+3 a do A1 napis trojku, tohle roztahni po celem radku
pak ten radek skopiruj > vlozit jinak > pouze hodnoty
tim ziskas potrebnou radu, pak staci jen ulozit do souboru s carkou, jako oddelovac polozek a mas textovy soubor presne v tvem formatu, jen copy > paste a muze se tisknout

OK, len mi to da 3 6 9 12 . . . kazde do inej bunky
bolo by treba 3,6,9,12 . . .

Aha, spatne formulovano
Ulozis jako soubor csv s carkou jako oddelovac bunek tim ziskas potrebnou radu

aha, PDF

tak to by šlo přes VBS, a předávat úhozy kláves.

dá sa... ale jedině přes VBA (IMHO).

základ máš níže, je potřeba jen poslední dva příkazy zacyklovat nějakým cyklem

    Selection.HomeKey Unit:=wdStory
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

'tady cyklus opakujici nasledujici 2 prikazy do EOF
    
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=2, Name:=""
    
     Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

Viz. příloha - čísla stránek v txt souboru, zkopírovat Ctrl+C/Ctrl+V do okénka výběru čísel stránek pro tisk v Adobe Readeru - otázkou je, jestli tolik čísel pobere, kdyžtak bys to musel rozdělit na několik částí.

Čísla stránek jsem vygeneroval jednoduše - v Excelu do řádku jako číselnou řadu, pak uložit jako CSV (hodnoty oddělené středníkem) a v PSPadu jsem nahradil středníky za čárky (Ctrl+H).

Diky, idem si to vyskusat sam . . . ulozit do csv ma nenapadlo
vyrizeno
diky vsem

ccc.. psal jsem to nahore jen jsem zapomel napsat typ souboru, ve kterem to ulozit

aj tak diky

Za truhlika?

Je to tak - jen jsem aplikoval tvůj postup v praxi. Nechci ti brát slávu a zásluhy.