< návrat zpět

MS Excel


Téma: Oboustranný tisk makrem rss

Zaslal/a 28.1.2016 15:22

Ahoj,
v práci využívám síťovou tiskárnu a potřeboval bych jednoduché makro, které mi vytiskne např. 1 a poslední list sešitu, ale oboustranně. Zkoušel jsem to přes nahrát makro, ale to mi nějak není schopné nahrát změnu v nastavení tisku na oboustranný tisk.

Dá se nějak vytvořit oboustranný tisk s využitím síťové tiskárny pomocí makra. Všem předem děkuji za odpovědi.

Zaslat odpověď >

Strana:  « předchozí  1 2
#042346
avatar

adosl napsal/a:

já bych to musel nejspíš řešit také přes it oddělení. Ale možná bych se tam dalo domluvit, že by mi založili ještě jeden odkaz síťové tiskárny s nastavením na oboustranný tisk. Jak by potom vypadalo makro odkazující na konkrétní síťovou tiskárnu?


Přesto že je tento dotaz už neaktuální, tak odpovím např. pro jiné uživatele, protože informací není nikdy dost 1
Měla jsem stejný problém, který jsme přesně vyřešili tím, že IT oddělení mi vytvořilo kopii tiskárny s předdefinovaným oboustranným tiskem, makro jsem potom upravila takto:

Sub tiskárna()
'
' tiskárna Makro
'

'
Sheets("FORMULÁŘ").Select
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="HP LaserJet M203-M206 obustrane", From:=1, To:=4, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Subcitovat
#042348
avatar
omlouvám se že trochu odbočím od zmíněného tématu, ale přiložené makro mě zaujalo z jiného problému.

jestli jde nějak udělat že my makro tiskne něco na tiskárně kterou jsem poslední použil v exelu či při prvním tisku ta která je defaultní.

Úpravou makra na
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="název tiskárny",

mohu říci kterou tiskárnou to má tisknout, ale co se stane když ten název tiskárny nebude přístupný ?
jde mě o to že v práci se mi tiskárna jmenuje například Canon, ale když pracuji vzdáleně z domova (pripojuji se na svůj počítač v práci) tak se mi pak na počítači doma tiskárna hlásí jako Cannon(from a název počítače v práci)
Jde teda nějak udělat, aby se tisklo na tiskárně canon nebude li tak zkusit název druhý a nebude li ani ta dostupná tak na defaultní ?

zjednodušeně něco jako
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="canon"
or
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="canon(from PC práce)"
Or
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _citovat

Strana:  « předchozí  1 2

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