Dajte v nastavení tlačiarne šedú škálu, nie čiernobielu. Nastavenie listu nechajte na default.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Tisk listu černobíle
......
Application.EnableEvents = False
Cancel = True
Oblast.Parent.PrintPreview 'Tlač
Application.EnableEvents = True
.....
nespúšťaj to tlačítkom.citovat
MS Excel
Téma: Tisk listu černobíle 
Zaslal/a Dita 28.1.2020 7:39
Mám na listu buňky s podmíněným formátováním (sada ikon). Tisk listu mám nastaven na černobíle. Jenže tímto nastavením se nevytisknou ani ty ikony podmíněného formátování. Je nějaká možnost, jak to ošetřit, aby se ikony vytiskly? Jedna možnost je, že oblasti listu, které mám pro přehlednost podbarvené nechám bezbarvé, ale to bude až ta poslední možnost.
Děkuji
Nejsem teď ve firmě, abych to vyzkoušel. Nebudou se ale tisknout i ty podbarvené oblasti?citovat
Takže Vy chcete tlačiť v šedej škále písmo, orámovania, šípky a objekty, ale nie vyfarbené oblasti ? Tak to nepôjde.
Jedine makrom pred začiatkom tlače nastaviť výplne na prázdne, a po skončení tlače naspäť. Snáď ma niekto opraví, odchytiť počiatok tlače sa dá v procedúre Workbook_BeforePrint, ale koniec tlače len tak neodchytíte. Taká požiadavka sa tu už riešila, ale nepamätám si, že by sa našlo schodné riešenie.
Mám na toto už dávno jeden nápad (v triede spracovávať prekresľovanie prvkov ribbonu alebo API FindWindow), ale to vyžaduje dlhé skúmanie, a to sa mi v tomto období teda nechce ...citovat
Jedine makrom pred začiatkom tlače nastaviť výplne na prázdne, a po skončení tlače naspäť. Snáď ma niekto opraví, odchytiť počiatok tlače sa dá v procedúre Workbook_BeforePrint, ale koniec tlače len tak neodchytíte. Taká požiadavka sa tu už riešila, ale nepamätám si, že by sa našlo schodné riešenie.
Mám na toto už dávno jeden nápad (v triede spracovávať prekresľovanie prvkov ribbonu alebo API FindWindow), ale to vyžaduje dlhé skúmanie, a to sa mi v tomto období teda nechce ...citovat
Potřebuji, aby se všechny podbarvené oblasti vytiskly bez barvy (zůstaly bílé) a aby se vytiskly ikony podmíněného formátování. Takže písmo a ikony budou černé. Tiskárna má pouze černobílý tisk.citovat
Tým "černobílý tisk" myslíte snáď šedú škálu, lebo už som dosť veľa rokov nevidel ČB tlačku :)
Ale to je nepodstatné. Platí to čo som písal. Treba vedieť odchytiť koniec tlače, aby ste mohli vrátiť farby späť. Inak to nepôjde. Počkajte na iný názor a potvrdenie/vyvrátenie.citovat
Ale to je nepodstatné. Platí to čo som písal. Treba vedieť odchytiť koniec tlače, aby ste mohli vrátiť farby späť. Inak to nepôjde. Počkajte na iný názor a potvrdenie/vyvrátenie.citovat
Kdysi sem řešil podobný požadavek, přikládám dva způsoby co sem použil. Možná se to hodí jako inspirace.
Příloha: 
45711_tisk-bez-vyplne.zip (33kB, staženo 26x)
citovat45711_tisk-bez-vyplne.zip (33kB, staženo 26x)(30.1.2020 7:18)#045712
Odchytiť počiatok tlače sa dá v procedúre Workbook_BeforePrint, ale koniec tlače len tak neodchytíte. Taká požiadavka sa tu už riešila, ale nepamätám si, že by sa našlo schodné riešenie.
Workbook_AfterPrint:
http://wall.cz/index.php?m=topic&id=45057citovat
Workbook_AfterPrint:
http://wall.cz/index.php?m=topic&id=45057citovat
Barth, eLCHa: Tak som si to vyskúšal, a nejako mi to hlava neberie, ako je to myslené. Skúste prosím doplniť do môjho pokusného súboru, kam by sa malo to Cancel = True vsunúť, prípadne, ako to upraviť. Makro samozrejme nečaká na nabehnutie driveru tlačiarne (skúšam na Bullzip PDF). Vymaže farby, spustí tlač, a skôr ako nabehne tlač, je všetko obnovené a makro ukončené. Rovnako pri Ctrl+P aj PrintOut.
Ď.
PS: Makro je iba rozpracované, Opakujú sa v ňom podobné časti, a ak to bude takto použiteľné prerobím na param. procedúry.
Ď.
PS: Makro je iba rozpracované, Opakujú sa v ňom podobné časti, a ak to bude takto použiteľné prerobím na param. procedúry.
Příloha: 45718_afterprint-a-bez-farieb.zip (23kB, staženo 28x)
citovat45718_afterprint-a-bez-farieb.zip (23kB, staženo 28x)......
Application.EnableEvents = False
Cancel = True
Oblast.Parent.PrintPreview 'Tlač
Application.EnableEvents = True
.....
nespúšťaj to tlačítkom.citovat
Aha, takto. A ja som to páskoval pred alebo za :) Škoda, že to nejde ešte na ten čudlík s PrintOut. Nuž ale čo, aj tak je to prd platné, lebo tých možností výplní a farieb, ktoré by bolo treba odstraňovať sú mraky. Napadlo ma, či by nebolo jednoduchšie vyrobiť tlačový list, do ktorého by sa natiahli iba nefarebné dáta + tie ikony, alebo prípadné vytváranie dočasnej kópie listu a odstránenie farieb a PF (okrem ikon) a následné jeho zmazanie...
Ale je čas spať.citovat
Ale je čas spať.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články