< návrat zpět

MS Excel

Téma: Tisk kliknutím na obrázek rss

Zaslal/a Kneiflpe 8.4.2015 16:13

Jde nějak udělat když vložím ikonku tiskárny do sešitu, aby kliknutím na ikonku se provedl příkaz CTRL+P = tisk sešitu ? DĚKUJI

Zaslat odpověď >
Strana:  1 2   další »
marjankaj(8.4.2015 16:33)#024443
avatar
Vlož obrázok, klikni naň pravým tlačítkom a priraď makro.citovat
Kneiflpe(8.4.2015 16:41)#024444
avatar
ok a jak udělat to makro?citovat
marjankaj(8.4.2015 17:27)#024446
avatar

Kneiflpe napsal/a:

ok a jak udělat to makro?

Použi záznamník.

A prečo ti nevyhovuje CTRL+P?citovat
elninoslov(8.4.2015 18:20)#024448
elninoslov
Aktivuj si v makre zrušením alebo pridaním "'" pred daný riadok buď:

Okamžitá tlač
ActiveSheet.PrintOut
Náhľadové okno
ActiveSheet.PrintPreview
To nové náhľadové okno
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Samozrejme iba jednu možnosť si tam daj.
Příloha: rar24448_tlac.rar (20kB, staženo 29x)
citovat
Kneiflpe(8.4.2015 21:45)#024451
avatar
Děkuji funguje to. Je to na program na správu nemovitostí. Ještě pak budu mít jeden dotaz až na to narazím.citovat
GeorgeK(10.4.2015 12:50)#024472
avatar
to elninoslov
To nové náhľadové okno
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Můžete mi poradit jak bude vypadat tisk několika tabulek/stran (v cyklu) z několika (konkretních) listů?
S využitím výše uvedeného náhledového okna.
Díkycitovat
GeorgeK(10.4.2015 12:59)#024473
avatar
asi jsem to špatně popsal...

...
Sheets("tisk1").Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Sheets("tisk2").Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Sheets("tisk3").Activate
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
...


proběhne první tisk a pak se zobrazí na displeji stránka "tisk2" a makro skončí..citovat
icon AL(10.4.2015 13:43)#024474
avatar
Trebárs takto?Sub ExecutePrint()
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Subcitovat
elninoslov(10.4.2015 13:50)#024475
elninoslov
Upravte si to makro takto (samozrejme musia sedieť názvy listov v Array()):
Sub StartPrint()
'ActiveSheet.PrintOut 'Okamžiťá tlač listu
'ActiveSheet.PrintPreview 'Náhľadové okno
Sheets(Array("tisk1", "tisk2", "tisk3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint") 'Nové náhľadové okno s možnosťami
ActiveSheet.Select
End Sub

EDIT: Kým som to napísal AL ma predbehol. 1 Pekný deň.citovat
GeorgeK(13.4.2015 12:49)#024489
avatar

Sub ExecutePrint()
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub
Díky tohle funguje, jenže

Sub ExecutePrint()
for x=1 to 3
Sheets(Array("Sheet1", "Sheet3")).Select
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
x=x+1
End Sub

Tohle už ne. Po tisku makro skončí a nepokračuje v cyklu (zjednodušený příklad). Ve skutečnosti se jedná o formulář, kde se v cyklu mění některé položky. Někdy je těch cyklů i deset...citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje