< návrat zpět

MS Excel

Téma: docházka rss

Zaslal/a ji026441 15.12.2010 20:02

Ahoj, mám vytvořenou docházku a v ní makro pro tisk, které přidá do zápatí datum a naskenovaný podpis. Já chci zajistit, že pokud podpis.jpg nebude k dispozici, makro na to upozorní a umožní buď pokračovat, nebo ukončit. Zde je makro:
Sub TiskDatumPodpis()
'
ActiveSheet.PageSetup.LeftFooterPicture.Filename = ActiveWorkbook.Path & "\" & "podpis.jpg"
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$43"
With ActiveSheet.PageSetup
.LeftFooter = "&D&G" & Chr(10) & "datum a podpis pracovníka"
.RightFooter = "datum a podpis vedoucího"
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.LeftFooterPicture.Filename = ""
With ActiveSheet.PageSetup
.LeftFooter = ""
.RightFooter = ""
End With

End Sub

Zaslat odpověď >
Začátečník(15.12.2010 21:23)#003523
Začátečník
Zvolil bych funkci vyhledání souboru
záleží na verzi MSO protože to co funguje v MSO 2003 nefunguje v MSO 2007citovat

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