Oboustranný tisk - Excel 2003, VBA

[George.K]

Zdravím

potřeboval bych příkaz (?) ve VBA, kterým donutím vybranou tiskárnu (ActivePrinter) tisknou oboustranně.
Díky za každý nápad

[Reklama]

[Luboš]

Na této stránce je nějaký podobný postup, možná ti pomůže k inspiraci.

Anebo:
The following code will set the printer to duplex and print a document. This can be particularly useful in Word 2002 for a document set up as a booklet using the Bookfold option in File/Page Setup. The pages can then be stapled in the middle and folded to make the booklet.
Sub PrintDuplexBooklet()

Dim iDuplex As Long

iDuplex = GetDuplex 'save the current setting
SetDuplex 3 'set for vertical binding
ActiveDocument.PrintOut Background:=False
SetDuplex iDuplex 'restore the original setting

End Sub

Další postupy třeba tady.

[George.K]

Dík za rady.
Mám smolíka, na pracovním PC mi system nedovolí dělat změny v ovládání tiskárny...

[Luboš]

Ach jo

[George.K]

Dík za snahu :-)
narazil jsem ještě na další problém - název (síťové) tiskárny.
Nastavení aktivní tiskárny = Application.ActivePrinter = "\\popo.wan.xy.abc\Tpo005 na Ne05:"
Problém je, že nastavení funguje u mně, na jiném síťovém PC je konec názvu (... na Ne05) jinak (...na Ne03 a pod.).
Jak to správně napsat, aby to fungovalo na všech PC?
Dík