• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: PrintOut

Zaslal/a Gany 15.2.2020 15:27

Dobrý den,
mám jeden problém s makry. Když si ve VBA napíšu makro s příkazem ExportAsFixedFormat a zadávám rozsah tisku (rozsah stran - jedná se tedy spíše o Word), tak je možné zadat rozsah From To normálně čísly bez uvozovek nebo i dokonce pomocí proměnné. Pokud ale napíšu makro s příkazem PrintOut kde bych očekával, že to bude stejné, tak se rozsah musí zadat číslem v uvozovkách. Pokud bych zadal číslo bez uvozovek, tak mi makro hází chybu. To by mi ani tak nevadilo, ale nepodařilo se mi zadat rozsah pomocí promměných, což potřebuji. Příčinu bych možná právě viděl v tom, že se rozsah nezadává tím konkrétním číslem, ale textem (číslo v uvozovkách). Nevíte tedy, jak by bylo možné u příkazu PrintOut zadávat rozsah tisknutých stránek pomocí promměných? (Makro mi totiž předtím vypočítává, jaký rozsah stran má být tisknut). Děkuji

Zaslat odpověď >

---

marjankaj(15.2.2020 16:13)#045889

A prečo teda nezadáš textom?
napr. "2-8"
alebo "3,5,8,11"

neviem ako by si zadával tieto hodnoty číslami.citovat

Stalker(15.2.2020 16:22)#045890

Tak si proměnnou převeď na text.citovat

Gany(15.2.2020 20:29)#045893

Já to potřebuji zadat proměnou, poněvadž to makro nejprve samo vyhodnotí po kterou stranu má být tisknuto (podle určitého textu).Abych uvedl názorně, toto mi funguje (tečky jsou další části kodu, který tady není důležitý):
Sub Ukazka()Dim UZ As Byte, ...
...
UZ = Selection.Information(wdActiveEndPageNumber)ActiveDocument.ExportAsFixedFormat OutputFileName:=Cesta & " - Priklad.pdf", ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, Range:=wdExportFromTo, From:=1, To:=UZ
End Sub

Ale tohle bohužel nefunguje:
Sub Vyhl()
Dim Dolozka As Byte, StrankaDolozky As Byte, Konec As Byte, …
…
Dolozka = Selection.Information(wdActiveEndSectionNumber)
StrankaDolozky = Selection.Information(wdActiveEndPageNumber)
If Dolozka = 1 Then
Konec = StrankaDolozky
Else
Konec = StrankaDolozky - 1
End If
…
ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=1, To:=Konec, copies:=1, collate:=True
End Subcitovat

Stalker(15.2.2020 20:49)#045894

Budu se opakovat.
Tak si proměnnou převeď na text !

ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=CStr(1), To:=CStr(Konec), copies:=1, collate:=Truecitovat

Gany(15.2.2020 20:51)#045895

Tak jo, s tím CStr to opravdu funguje, tak díky.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse