Makro za tiskanje v excel

Pomoč pri izdelavi makrov
Odgovori
dejvi
Prispevkov: 28
Pridružen: So Jan 14, 2012 11:42 pm

Makro za tiskanje v excel

Odgovor Napisal/-a 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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a admin »

Pozdravljeni,

Delovni list izpišete z metodo PrintOut:

Koda: Izberi vse

  ActiveSheet.PrintOut
lp,
Matjaž Prtenjak
Administrator
dejvi
Prispevkov: 28
Pridružen: So Jan 14, 2012 11:42 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a 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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a admin »

V Oknih kot privzeti tiskalnik izberite 'MS XPS printer' (oz. kako se pač imenuje), kode pa vam ni potrebno popolnoma nič spreminjati.
lp,
Matjaž Prtenjak
Administrator
dejvi
Prispevkov: 28
Pridružen: So Jan 14, 2012 11:42 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a 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
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a 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
Prispevkov: 28
Pridružen: So Jan 14, 2012 11:42 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a dejvi »

Hvala za nasvet.

LP
Tiko
Prispevkov: 2
Pridružen: Sr Jul 25, 2012 10:07 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a 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
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a 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
lp,
Matjaž Prtenjak
Administrator
Tiko
Prispevkov: 2
Pridružen: Sr Jul 25, 2012 10:07 pm

Re: Makro za tiskanje v excel

Odgovor Napisal/-a Tiko »

Jaoo.. (blush)

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

Najlepsa hvala in lep dan zelim!
Odgovori