loop gennem kolonner, lav graf og print til pdf med unikt navn

typisk skal jeg lave 120-140 rapporter - dvs. jeg skal gentage processen 120-140 gange og det er rimeligt kedeligt ...

Du skriver ganske simplet en makro - det vil være langt det hurtigste i dit tilfælde.

Du kan få "kodet" en stor del af det ved blot at optage den - funktioner->makro->indspil ny makro.

Når du har "kørt" den første rapport manuelt og udskrevet den, stopper du makro optagelsen, taster Alt+F8 og vælger rediger.

Herefter skal du så udvide koden til at kunne loope over de 140 kolonner.

Så er du færdig :-)

OK - jeg er kommet så langt at få en makro til at kopiere data fra f.eks. kolonne D til kolonne B og få dannet den tilsvarende rapport. Det der driller er at få navngivet pdf-filen med en værdi fra data-kolonnen. Dernæst at få makroen til at loope.

Hejsa

Jeg har selv haft møje og besvær med autmatisk generingen af PDF-filer fra office applikationer, men fandt inspiration på følgende side:
http://www.igetit.net/SampleCode/Excel_To_PDF_vba_code.htm

Det er ikke helt det du efterspørger, men du kan helt sikkert bruge principperne...

/asol

hvordan laver du det pdf-print ?
Udskriver du bare til en speciel printer (printerdriver) der så beder om sti og filnavn eller er det mere komplext?

Hejsa asol & bak

asol >> dit link ser meget spændende ud, jeg sidder faktisk lige nu og prøver at få det tilpasset mit behov.

bak >> hidtil har jeg "bare" valgt min Acrobat Distiller via Udskriv, valgt den rette stil og givet filen et unikt navn. Dette gentog jeg så 120-140 gange ..... zzzzzzz

Ok, nu kender jeg ikke din version af adobe så dette virker måske/måske ikke
Jeg antager at du vil give filen navnet det står i kolonne B celle B1
Denne linie skal nok ændres til det din printer/driver hedder
Const stPDFPrinter As String = "Adobe Destiller on FILE:"
Det finder du nemmeste ved at optage en makro hvor du udskriver.

Sub PDFPrint()
Const stPDFPrinter As String = "Adobe Destiller on FILE:"
Const stPath As String = "C:\PDFfiler\"
Dim stFilnavn As String
Dim stOldPrinter As String
On Error GoTo errormsg
    ' filnavn fra celle B1
    stFilnavn = ActiveSheet.Range("B1").Value
    'hvad hedder nuværende printer
    stOldPrinter = Application.ActivePrinter
    'udskriv til pdfprinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=stPDFPrinter, _
            Collate:=True, prtofilename:=stPath & stFilnavn
    'skift tilbage til rigtig printer
    Application.ActivePrinter = stOldPrinter
    Exit Sub
errormsg:
    MsgBox "Der er sket en fejl, Arket er ikke printet ud i pdf-format"
End Sub

bak >> jeg får en fejl: Run-time error '1004':

Filen kan ikke udskrives pga. en fejl i Acrobat Distiller på Ne03: Der er flg. mulige årsager:

Ikke nok hukommelse
Problemer med netværk (jeg printer lokalt ...)

bak ->> jeg har bygget din sub ind i et loop, som løber så længe der er data (pt. dog kun 3 loops)

asol ->> jeg har lidt udfordringer med fejl. Så vidt jeg kan se drejer det sig om at få sat det der class module rigtigt op.

Compile error

User-defined type not defined

kan du hjælpe med det?

Vedr. 26/04-2004 12:08:19: Tror du i egenskaberne for printeren 'Adobe PDF' skal disable 'Prompt for Adobe PDF filename'

Vedr. 26/04-2004 12:14:42: Har du lavet en reference til 'Adobe Distiller'?

/asol

Problemet ligger nok i    på Ne03.
det lyder som en netværksprinter

er det det der kommer ud når du optager en makro hvor du skifter til acrobat Distiller ?

asol ->> har slået prompt for filename fra. Jeg fulgte guiden på dit tidligere link til at oprette reference.

bak ->> tjah - netværksprinter. Ne03 er det der kommer ud, når jeg optager via makro.

Til info: Jeg bruger Acrobat Distiller 4.0

Status: Min makro til generering af rapporter looper perfekt og rapporterne gemmes med et unikt navn som separate xls-filer i en folder. Derudover har jeg en "proto-type" på en print-makro, som looper gennem alle xls-filer en folder. Den starter med at åbne "den første" xls-fil UDEN opdatering af kæder (og det er vigtigt), men den del der driller er at få udskrevet til PFD. Her arbejder jeg på asol´s henvisning fra tidligere i tråden, idet det netop er den vej jeg vil.

Jeg har faktisk ikke før brugt makroen i sin helhed. Har dog lige prøvet og det virker perfekt!

Har du angivet hvilken folder den skal søge efter xl-filer i, hvor den skal gemme ps-filen og hvor den skal gemme pdf-filen?

/asol

Hej asol & bak

Nu kører "skidtet" perfekt - I har været udholdende og tålmodige. Så giv et svar, så får I point.

Til info: jeg valgte at lade en makro generere rapporter til xls-format og derefter lade en anden makro (asol - endnu engang tak for linket) generere pdf-filerne. Og det virker kanon - jeg har sparet mange timers arbejde fremover :-)

Du er velkommen.

/asol

asol --> du får de 60 points.
bak --> hvis du ønsker at svare, så giver jeg dig gerne lidt points også :-)

Tak for hjælpen

jss, asol har fortjent alle points. :-)