Problem s tiskem pres makro

Problem s tiskem pres makro otázka

Dobry den,

predem se omlouvam ale jsem uplny laik, a mam takovy snad mensi problem. V praci jsem vytvoril v excelu sesit na tisk kontr. listku, kde jsi zadam kolik listku chci vytisknout a kliknu na tlacitko tisk. K tlacitku jsem si vytvoril makro na tisk s naslednym zneni:

Sheets("Kontrolák M").Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Tak a ted k otazce, v exceleovskem sesitu mam bunku ktera se meni podle toho kolik kontr. listku potrebuji, jak nadefinuji aby si to cislo ktera mam v bunce vlozil do Copies:=?

Predem dekuji

nahlásit spam

1 / 1

odpovědět

Počet kopií bude např. v buňce A1

  Sheets("Kontrolák M").Select
  ActiveWindow.SelectedSheets.PrintOut Copies:='''Range("A1")'''

nahlásit spam

1 / 1

odpovědět

Apostrofy tam samozřejmě nepatří - chtěl jsem tučné písmo ... jenže v kódu ? :-(

nahlásit spam

1 / 1

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

heh tisicere diky uz to bezi jak ma, moc dekuji

nahlásit spam

odpovědět

dekuji za radu, ale ted mi to pise

compile error:

syntax error

Nevite co s tim? Predem dekuji

nahlásit spam

odpovědět

Asi nějaký překlep.

Sheets("Kontrolák M").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1")

nebo i takto

With Sheets("Kontrolák M")
     .Select
     .PrintOut Copies:=cInt(Range("A1").Value)
End With

nahlásit spam

odpovědět

Chybu hledejte jinde, v uvedeném kódu není.

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz