< návrat zpět

MS Excel


Téma: tiskové makro do PDF rss

Zaslal/a 16.4.2018 16:42

mám soubor, který jsem (viz diskuze "velikost souboru")vytvořil znovu. Nyní je jeho velikost v pohodě. ve Excelu 2016 mi vše běhá OK. Pokud jej ale otevřu ve starší verzi 2010 tak mi vyhodí Error při stisku tlačítka na vytvoření PDF dle nastaveného rozsahu tisku. hlásí to, že soubor je otevřen nebo vznikla chgyba při ukládání. Je chyba v makru, které jsem si jen upravil pro svou potřebu nebo ve verzi excelu? Díky moc. Č.

Zaslat odpověď >

Strana:  1 2   další »
#040129
avatar
v makru mám toto:
Sub tisk_uvod()
'
' tisk_uvod Makro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"c:\excel-tisk-uvod.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Subcitovat
#040130
avatar
toto je můj soubor...citovat
#040131
avatar
aha, tak soubor nemohu připojit, když má 1,7 MB?citovat
#040132
avatar
Soubor s makrem se musí zazipovatcitovat
#040133
elninoslov
Vložte ho na GoogleDrive, Ulož.to a pod... , lebo aj keď ho zazipujete, zas neprejde kvôli veľkosti.citovat
#040135
avatar
posílám zazipováno...citovat
#040136
avatar
https://uloz.to/!ypYvGTIb7nqj/tabulky-np-zipcitovat
#040137
elninoslov
Nemôžete ukladať priamo pod disk C: (to platí hlavne pri Win10)
Vytvorte tam zložku napr. PDF a zmente v kóde
Filename:= "c:\excel-tisk-uvod.pdf"
na
Filename:= "c:\PDF\excel-tisk-uvod.pdf"
Skúste, či je to tým.

EDIT:
Inak tie Vaše makrá, aj logiku pomenovania súborov by som určo zmenil napr. minimálne takto :
-Module2 úplne odstráňte
-V Module1 všetko vymažte a dajte tam:
Sub vymaz_prijmy() ' vymaz_prijmy Makro
Range("C4:D5").ClearContents
Range("C4").Select
End Sub
Sub vymaz_vydaje() ' vymaz_vydaje Makro
Range("C11:C16,I11:I16,K11:K15,C23:K28,C33:K44,C50:E57,J50:K53").ClearContents
Range("C11").Select
End Sub
Sub vymaz_bydleni() ' vymaz_bydleni Makro
Range("C11:C16").ClearContents
Range("C11").Select
End Sub
Sub vymaz_uvery() ' vymaz_uvery Makro
Range("I11:I16,K11:K15").ClearContents
Range("I11").Select
End Sub
Sub vymaz_auto() ' vymaz_auto Makro
Range("C23:K28").ClearContents
Range("C23").Select
End Sub
Sub vymaz_provozni() ' vymaz_provozni Makro
Range("C33:K44").ClearContents
Range("C33").Select
End Sub
Sub vymaz_fixni() ' vymaz_fixni Makro
Range("C50:E57").ClearContents
Range("C50").Select
End Sub
Sub vymaz_OSVC() ' vymaz_OSVC Makro
Range("J50:K53").ClearContents
Range("J50").Select
End Sub
Sub tisk_uvod() ' tisk_uvod Makro
Dim Nazev As String, Slozka As String
Slozka = "C:\PDF\"
With ActiveSheet
Nazev = Slozka & IIf(.Name = "Úvod", .Range("L5").Value2 & " - roční přehled.pdf", .Range("H3").Value2 & " - rozvaha nákladů " & UCase(Format(DateSerial(2018, Val(.Name), 1), "mmmm")) & ".pdf")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nazev, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub


Všetky tie ".Select", čo tam ostali sa dajú nahradiť za ".Activate", alebo za "Application.Goto prvá_bunka", všetko podľa toho, či je/nieje pred stlačením niečo označené, ak áno či sa má zachovať výber, či sa má skočiť na prvú bunku mazanej oblasti + či sa má naskrolovať, alebo sa nemá nič robiť okrem zmazania, a pod.

Predpokladá sa že máte adresár C:\PDF vytvorený, a názvy súborov sa robia podľa aktívneho listu a mena zákazníka v ňom. Teda sa predpokladá, že mená listov sú presne tak, ako sú v príklade.citovat
#040138
avatar
Vytvořením složky PDF jsem problém odstranil... :-) Díky.
Ono mi to ale ve win10 (Office 2016) funguje i bez složky, ale pokud otevřu tentýž XLS soubor na jiném počítači, kde mám také WIN10, ale starší Excel 2010, tak to už nefunguje... Díky za tip.
Č. 10citovat
#040139
avatar
ještě díky moc za přepis těch maker, ale úplně nechápu (nejsem tak zběhlý v makrech = spíše jsem je dělal individuálně na každé tlačítko zvlášť, protože rozsah tisku na jednotlivých listech je nstaven stejně). úplně nevím, co je modul1 a modul2 ale jestli to Chápu správně, tak mám smazat všechna jednotlivá makra, a vložit tam 1 makro s těmi všemi funkcemi co jste posílal... ale jak se má jmenovat? a jak to přiřadit k těm tlačítkům?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