MS Excel

For má byť ukončené Next, čiže miesto x=x+1 by tam teoreticky, aby bola dodržaná syntax VBA, malo stáť Next x. Ale ani to nezaručí, že sa doberieš kýženého výsledku. Každopádne, makro takto napísaným cyklom prebehne korektne, je možné vidieť, že na konci sa zobrazí hláška "makro pokracuje". Sub ExecutePrint()
Dim x As Byte
For x = 1 To 3
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Next x
MsgBox "makro pokracuje"
End Sub
Ako som ale zmienil, pravdepodobne to nie je to, čo chceš dosiahnuť, síce tuším, o čo sa snažíš, ale zrozumiteľné formulovanie problému ponechám na tebe.citovat

Ab takto nejako si to nechcel?
Sub ExecutePrint()
Dim x As Worksheet
For Each x In Sheets(Array("Hárok1", "Hárok3"))
x.PrintPreview ' x.printout
Next x
MsgBox "makro pokracuje"
End Subcitovat

George, myslím, že nesprávne používaš termín cyklus.
Sheets(Array("Sheet1", "Sheet3")).Selectnie je cyklus.
Ale já se bavím o cyklu
For x = 1 To 3
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Next xcitovat

Nedostal jsem se k rychlejší odpovědi...
Popišu to jak to FUNGOVALO na Win XP a Excel 2003 (současný systém Win7 profesoinal a Excel 2010)
1. Personální tabulka, co řádek to údaje o osobě
2. určím si, že potřebuji tisknout řádky 101-103 (3 formuláře o dvou výtiscích - 6listů)
3. z tabulky se načtou údaje o osobě 101 do formuláře (list "tisk01" a list "tisk02" = výtisk č.1 a č.2. - liší se v pár položkách)
4. vyvolá se pokyn k tisku (Sheets("tisk01").PrintPreview)
5. zkontroluji udaje, navolím tiskárnu (může být místní, síťová), oboustranný tisk a potvrdím -> vytiskne se osoba101 výtisk č.1
6. (Sheets("tisk02").PrintPreview) - totéž výtisk č.2
7. makro pokračuje - doplní do STEJNÉHO formuláře údaje o osobě 102 a provede se Preview...
8. osoba 103...
9. konec

V Excelu 2010 mi nefunguje PrintPreview (objevi se náhled a po stlačení Print vyskočí hláška "RT error 1004, Metoda PrintPreview třídy Worksheet selhala."
Možnost Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
se jevila jako funkční, jenže v případě zobrazení náhledu se makro nezastaví, rychle proběhnou náhledy osob 101, 102 a zastaví se až na 103. Můžu tedy vytisknout jedině poslední z vybraných osob.
Možna jdu na to špatně a existuje něco jednoduššího :-)
Potřebuji mít možnost volby tiskárny (parametrů) před tiskem a doplňovat do STEJNÝCH 2 listů různé udaje a ty tisknout.
Díky za nápady.citovat

Obávam sa, že ani neuvidíš. Určite je to tajné. citovat