Makro za tiskanje v excel

[dejvi]

Pozdrav

V excel sem si nastavil z hiperpovezavo območje za tiskanje.Sedaj pa bi z klikom na eno celico to tudi rad natisnil.
Obstaja morda makro za tiskanje,da bi se dokument kar sam natisnil in ne bi tega delal ročno.

Hvala in lp

[admin]

Pozdravljeni,

Delovni list izpišete z metodo PrintOut:

Koda: Izberi vse

  ActiveSheet.PrintOut

[dejvi]

Hvala za odgovor,zadeva deluje,sedaj imam še eno vprasanja,kako bi izgledal makro,da bi se na klik gumba-tiskanje v excelu odprlo okno za tiskanje,samo izbralo varianto microsoft XPS dokument writer in nato bi jaz samo vpisal ime dokumenta in ga shranil na poljubno mesto,to mi pride prav ko lahko iz excela shranim dokument kot sliko,no xps dokument.

Hvala za odgovor

[admin]

V Oknih kot privzeti tiskalnik izberite 'MS XPS printer' (oz. kako se pač imenuje), kode pa vam ni potrebno popolnoma nič spreminjati.

[dejvi]

Pozdrav

Na to sem pomislil že sam,vendar je problem,ker enkrat printam na tiskalnik,drugič pa v xps,sem mislil,da obstaja kako koda,da bi ukaz sam izbral željeno in ne bi rabil ročno spreminjati tega.

Hvala vseeno za hiter odgovor

[jumanjy]

Zdravo

Jaz sem imel podoben problem rešil pa sem ga tako, da sem si v gumb posnel makro tako da sem najprej izbral določen tiskalnik natisnil kar je za natisnit nato pa zopet izbral nazaj privzeti tiskalnik. Moj makro zgleda takole samo potrebno je podati ime datoteke ko jo shranjuje.

Koda: Izberi vse

 Izberi_Tiskalnik Makro
'
    Application.ActivePrinter = "Microsoft XPS Document Writer na Ne03:"
    ActiveSheet.PrintOut
    Application.ActivePrinter = "HP LaserJet Professional P1102 na Ne05:"

Lp.

[dejvi]

Hvala za nasvet.

LP

[Tiko]

Pozdravljeni,

V VB sem nov in na to temo sem ze prebral mnogo teksta ampak imam podobno tezavo opisano v tej temi.

Imam office 2010 privzeti tiskalnik je Canon. Z posnetim makrom zelim pa tiskati na Epsona. Posnel sem macro in v njega dodal

Koda: Izberi vse

Application.ActivePrinter = "EPSON LQ Series 1 (80) na LPT1:"

, ampak mi se vedno printa na canona.

Koda: Izberi vse

Sub EPSON()
'
' EPSON Makro
'
' Bližnjica na tipkovnici: Ctrl+y
'
Application.ScreenUpdating = False
Sheets("PRINT RA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.ActivePrinter = "EPSON LQ Series 1 (80) na LPT1:"
End Sub

Za vso pomoc se Vam ze vnaprej zahvaljujem.

Lp, Tiko

[admin]

...

Vi najprej datoteko izpišete in nato zamenjate tiskalnik... Kaj ko bi poskusili v obratnem vrstem redu :

Koda: Izberi vse

Sub EPSON()
  Application.ScreenUpdating = False
  Sheets("PRINT RA").Select
  Application.ActivePrinter = "EPSON LQ Series 1 (80) na LPT1:"
  ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

[Tiko]

Jaoo.. (blush)

Kot sem ze napisal, sem zacetnik.. No comment!

Najlepsa hvala in lep dan zelim!