Re: VBA-tisk

On 1/12/06, ov <o.vahalik@atlas.cz> wrote:
>
> AleX napsal(a):
>
> >caf
> >a preco vlastne menis ten printer?
> >sub na tlacenie ma tieto parametre (teda aspov exceli):
> > PrintOut([From], [To], [Copies], [Preview], [ActivePrinter],
> [PrintToFile],
> >[Collate], [PrToFileName])
> >nestacilo by do parametru ActivePrinter zadat ten tebou spominany text?
> >
> >
> >On 1/11/06, o.vahalik@atlas.cz <o.vahalik@atlas.cz> wrote:
> >
> >
> >>Ahoj.
> >>Mam napsany programek ve VBA Excel,je vytvoren word dokument a poslan na
> >>sitovou tiskarnu. Na PC je nastavena default tiskarna, kterou bych
> >>potreboval po vytisteni na sitove tiskarne vratit. Jde to ale jenom,
> pokut
> >>to nastavim natvrdo. kod vypada asi takto:
> >>
> >>puvodnitiskarna= Application.ActivePrinter 'ulozeni puvodni tiskarny do
> >>promenne
> >>
> >>Application.ActivePrinter = "HP LaserJet 4050 Series PCL 6 on NE01:"
> >>'Sitova tiskarna, dostal jsem od spravce site, tam potrebuju vytisknout
> >>jenom ten konkretni dokument
> >>
> >>Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:=
> >>atd...
> >>
> >>Application.ActivePrinter = puvodnitiskarna
> >>
> >>Zustane mi ale nastavena ta sitovka
> >>Pokud zadam misto promenne nazev natvrdo, nastavi se
> >>
> >>Ten kod je samosebou zkraceny, ale muzu poslat vetsi fragment, ale
> myslim,
> >>ze podstata je zrejma?
> >>Diky
> >>
> >>OV
>
> >
> >
> >--
> >AleX
> >
> >
> >
> No, mi to funguje, kdyz zadam sitovou tiskarnu a natvrdo tu svoji lokalni.
> Ale chci, aby se dal prog  pouzit i pro jine PC v siti, a bylo by tedy
> treba to u kolegu, kteri by ho chteli pouzivat, zadavat to jednotlive na
> kazdem PC extra. Pokud by se podarilo vyresit ukladani default. tiskarny
> do promenne, dal by se prog. pouzivat kdekoliv (ta sitova tiskarna je
> pouzivana odevsad stejna, meni se jenom PC, ze kterych se to k tisku na
> ni posila).
>
> OV
>
> Nerozumiem ti co vlastne chces,
1 chces pomocou VBA na vsetkych PC pridad do tlaciarni tu sietovu?
alebo
2. na akomkolvek pocitaci vytlacit nejaky word dokument na tej sietovej
tlaciarni

ak je 2 spravne potom:
riadok:
Application.ActivePrinter = "HP LaserJet 4050 Series PCL 6 on NE01:"
vyhodit

riadok:
Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:=
upravit a to takto
Application.PrintOut Filename:="", Range:=wdPrintAllDocument,  _
ActivePrinter:="HP LaserJet 4050 Series PCL 6 on NE01:",Item:=

podarilo sa mi napisat to zrozumitelne? ak nie napis kde nie som
zrozumitelny ...
--
AleX