[es] - makro za save as sheet1 sadržaja u pdf

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
*.pppoe2363.bih.net.ba.

+10 Profil

makro za "save as" sheet1 sadržaja u pdf

^{13.11.2009. u 12:53 - pre 175 meseci}

Pravim radni nalog koji se printa u 3 primjerka, kopira u drugi sheet(baza) označene čelije makro naredbama.
Kopirao sam neke makroe i funkcionišu ali bi bilo dobro da imam arhivu svih urađenih RN u pdf-u a to bi ,pretpostavljam
mogao automatski riješiti makro naredbom koju ne znam baš sam uraditi bez smjernica.
Još jedan problem imam oko ažuriranja prilikom pritiska dugmeta za ažuriranje, nešto sam zezno pa mi se kopiraju
podaci (iz račun) na sljedeći broj (baza) reda iz sheeta račun.

Nije znanje znanje znati, znanje je znanje dati .....

Prikačeni fajlovi

Probafaktura2.xls - 91k

Odgovor na temu

mirjanagb
mirjana kovacevic
austrija

Član broj: 160826
Poruke: 184
*.swlan.wu-wien.ac.at.

+1 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{14.11.2009. u 08:30 - pre 175 meseci}

jel hoces da ti se to snimi u posebaan folder?

imam ja makro koji snimasheet kao pdf u odredjen folde pa mozes malo da ga preradis.

Odgovor na temu

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
92.36.245.*

+10 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{14.11.2009. u 09:18 - pre 175 meseci}

Tako nešto sam i mislio, čisto da imam arhivu uradjenih radnih naloga.
Prije mjesec dana sam "otkrio" moč makro naredbi pa sam nešto kombinovao, bio bih ti zahvalan.

Nije znanje znanje znati, znanje je znanje dati .....

Odgovor na temu

mirjanagb
mirjana kovacevic
austrija

Član broj: 160826
Poruke: 184
*.swlan.wu-wien.ac.at.

+1 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{14.11.2009. u 10:55 - pre 175 meseci}

jos samo jedno pitanje.

jel hoces s makroom da snimis samo jedan fajl ili automatski da snima vise.

koliko vidim ovde je samo jedan nalog.

Odgovor na temu

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
92.36.245.*

+10 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{14.11.2009. u 11:17 - pre 175 meseci}

Da. Samo iz Sheet-a "RAČUN" napraviti fajl u arhivi koja sadrži taj radni nalog, ako bi moglo, automatski , kada se pošalje fajl u arhivu
da se pobriše prethodni sadržaj i pripremi za novi upis, to bi bilo super.

Još nešto!
Ovaj moj gump "ARHIVA (BAZA)" mi nije ok.
Ne prebacuje celije u "BAZU" redom od početka i nemam ideju kako da čelije koje su u "opisu radova (operacija)" budu svezane za taj R nalog.
Treba mi ta evidencija operacija vezana za izdati račun.

Ako sam zakomplikovao soryyy.

Hvala

Nije znanje znanje znati, znanje je znanje dati .....

Odgovor na temu

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
*.tz2.dlp492.bih.net.ba.

+10 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{17.11.2009. u 07:56 - pre 175 meseci}

Citat:

mirjanagb: jos samo jedno pitanje.

jel hoces s makroom da snimis samo jedan fajl ili automatski da snima vise.

koliko vidim ovde je samo jedan nalog.

Da samo jedan.
Može i neka drugha adresa ili link

Nije znanje znanje znati, znanje je znanje dati .....

Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com

+1 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{17.11.2009. u 22:31 - pre 175 meseci}

Mirjana , da li mozes da okacis taj makro za snimanje fajla u PDF ?
Meni nesto tako treba.

saka

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w86-209.abo.wanadoo.fr.

Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{18.11.2009. u 09:19 - pre 175 meseci}

Re,

Zasto razbivas glavu sa makro komandama, dovoljnoje da instaliras program koji se zove PDF Creator V0.9.8
Videces i sam u njemu postoje vise opcija za snimanje bilo kog dokumenta u PDF formatu , radi na bazi stampaca i
najbitnije program je besplatan.

Jednostavno otvoris tvoj excel dokumenat
zatim file stampanje
u dialog box izaberes kao stampac PDF Creator
i stvar je zavrsena.

Evoti Link za svaki slucaj inace program je na engleskom, nisam siguran cinimise da mozes prevesti i na srpskom jeziku.

Pozdrav

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
92.36.255.*

+10 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{18.11.2009. u 09:55 - pre 175 meseci}

[quote]Gix_: Re,

Zasto razbivas glavu sa makro komandama, dovoljnoje da instaliras program koji se zove PDF Creator V0.9.8
Videces i sam u njemu postoje vise opcija za snimanje bilo kog dokumenta u PDF formatu , radi na bazi stampaca i
najbitnije program je besplatan.

Gix ...hvala na uputi ali tako sada radim i ipak mislim da bi to zgodnije bilo zadati makro za " save on place kao PDF,copy,cut i print3x, pod tasterom
i sve to za 2sec umjesto 2 min, stim da se smanji mogućnost greške itd... ipak ću saćekati nekoga ko je to znalački riješio

Nije znanje znanje znati, znanje je znanje dati .....

Odgovor na temu

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
92.36.255.*

+10 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{18.11.2009. u 09:56 - pre 175 meseci}

Gix ...hvala na uputi ali tako sada radim i ipak mislim da bi to zgodnije bilo zadati makro za " save on place kao PDF,copy,cut i print3x, pod tasterom
i sve to za 2sec umjesto 2 min, stim da se smanji mogućnost greške itd... ipak ću saćekati nekoga ko je to znalački riješio

Nije znanje znanje znati, znanje je znanje dati .....

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{18.11.2009. u 10:42 - pre 175 meseci}

Mirjana je već postavila kod u ovoj temi: http://www.elitesecurity.org/t356124-0#2227567. U tom primeru za kreiranje PDF dokumenta se koristi PDF kreator.

Ukoliko koristiš Office 2007 postoji plug in za export u PDF
http://www.microsoft.com/downl...3b07ba5f2e5&displaylang=en

Ukoliko je taj plug in instaliran, za eksport u pdf je dovoljna jedna linija koda:

Code:
ActiveSheet.ExportAsFixedFormat _
       Type:=xlTypePDF, _
       Filename:="C:\My Documents\TEST.pdf", _
       OpenAfterPublish:=False

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-48.abo.wanadoo.fr.

Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{18.11.2009. u 11:50 - pre 175 meseci}

evoti jos jedno resenje pa biraj
pozdrav

Code:
Sub Tst_PdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String

    sNomPDF = "Ime PDF Faila.pdf" 'inace moguceje da povuce ime iz odredjene radne sveske i celije primer na sledecoj liniji
    'sNomPDF = Sheets("1").Range("A1").Value
    sCheminPDF = ActiveWorkbook.Path & Application.PathSeparator  'takodje mozese prilagoditi destinacija PDF faila
    'sCheminPDF = "C:\Teste\PDF Failovi"

    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")

    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Inicializacija PDFCreatora nemoguca", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF


        .cOption("AutosaveFormat") = 0  '   "brojevi za razlicite formate" 0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cClearCache
    End With

    ActiveWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"  'snimanje radne sveske
   'ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"     'snimanje aktivnog radnog lista
   'Sheets("1").PrintOut copies:=1, ActivePrinter:="PDFCreator"     'snimanje odredjenog radnog lista

    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False

    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    JobPDF.cClose
    Set JobPDF = Nothing

End Sub

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: makro za "save as" sheet1 sadržaja u pdf

^{18.11.2009. u 11:53 - pre 175 meseci}

Evo jednog malog primera kako bi PDF mogao da se kreira i ako nije instaliran nikakav PDF writer/creator ili postscript stampac......

Primer je napravljen po uzoru na kod "Advanced PDF Class By: Faizi Baba" napisan za VB6 (ali sreca da je VBA gotovo isto sto i VB6).
Pogledajte originalni primer na http://www.planetsourcecode.co...p?txtCodeId=70441&lngWId=1

Pozdrav

Prikačeni fajlovi

pdf.rar - 200.23k

Odgovor na temu