udskrive flere ark vha. makro til 1 PDF-fil

Har du sat Collate:=True ifm .PrintOut?

jeps - her er makroen :

Sub PDFwriter()

    Application.ActivePrinter = "PDFWriter på CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFWriter på CPW2:", Collate:=True

Application.ScreenUpdating = False

Sheets("BREV").PageSetup.PrintArea = "$A$1:$H$54"
    Sheets("BREV").PrintOut Copies:=1, Collate:=True
Sheets("Forside").PageSetup.PrintArea = "$A$1:$M$30"
    Sheets("Forside").PrintOut Copies:=1, Collate:=True
Sheets("Analyse").PageSetup.PrintArea = "$A$1:$H$26"
    Sheets("Analyse").PrintOut Copies:=1, Collate:=True
Sheets("Oversigt").PageSetup.PrintArea = "$A$1:$M$25"
    Sheets("Oversigt").PrintOut Copies:=1, Collate:=True
Sheets("Behovsanalyse").PageSetup.PrintArea = "$A$1:$H$25"
    Sheets("Behovsanalyse").PrintOut Copies:=1, Collate:=True

'udskrivning af døds-diagram:
    Sheets("Død").Select
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   

   
'udskrivning af pensions-diagram:
    Sheets("Pension").Select
    ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
Sheets("BREV").Select

Application.ScreenUpdating = True

 
End Sub

hhmm... hvis jeg vælger udskrift af hele "workbook" så ser det umiddelbart ud til at virke (i "vis udskrift") - men i det endelige output til pdf-filen så er det igen opdelt ; 1 fil med de 5 ark, 2 filer med hver sin graf...

makroen til workbook ser således ud : (temmelig simpel)

Sub Makro1()
    ActiveWorkbook.PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub

Ok, jeg har lidt problemer med at få dine diagrammer med fordi de er embedded. Hvis du kan lave dem som selvstændige ark kan du i koden nedenfor skrive

Sheets(Array("BREV", "Forside", "Analyse", "Oversigt", "Behovsanalyse", "Diagram1","Diagram2")).Select

i stedet for

Sheets(Array("BREV", "Forside", "Analyse", "Oversigt", "Behovsanalyse")).Select




Sub UdskrivPDF()
   
Application.ActivePrinter = "PDFWriter på CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFWriter på CPW2:", Collate:=True

Application.ScreenUpdating = False

Sheets("BREV").PageSetup.PrintArea = "$A$1:$H$54"
Sheets("Forside").PageSetup.PrintArea = "$A$1:$M$30"
Sheets("Analyse").PageSetup.PrintArea = "$A$1:$H$26"
Sheets("Oversigt").PageSetup.PrintArea = "$A$1:$M$25"
Sheets("Behovsanalyse").PageSetup.PrintArea = "$A$1:$H$25"

Sheets(Array("BREV", "Forside", "Analyse", "Oversigt", "Behovsanalyse")).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.ScreenUpdating = True

End Sub

burde jeg nok have skrevet ;o| - i udskrivning af workbook har jeg skjult nogle ark + ændret diagrammerne til at være selvstændige ark.

vil lige nappe lidt mad og så få testet koden ;o)

hhmmm ! jeg kæmper med makroen - men den vil ikke give mig et print i een PDF-fil - den dit forslag virker ikke på min maskine - derfor har jeg ændret lidt i den:

Sub UdskrivPDF()
   
Application.ActivePrinter = "PDFWriter på CPW2:"
Application.ScreenUpdating = False

Sheets(Array("BREV", "Forside", "Analyse", "Oversigt", "Behovsanalyse", "T", "Pens")).Select

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub

denne makro ender ud i 3 filer,,,, (det kan vel ikke være min PDFwriter fra CutePDF - http://www.acrosoftware.com/Products/CutePDF/writer.asp)

det er underligt :
I vis udskrift viser den fint ALLE sider fortløbende men når det udskrives så ender jeg igen med 3 filer.....

har lige haft lejlighed til at tjekke makroen på en anden maskine hvor Adobe var installeret - den viser også alt i en og udskriver til pdf i 3 filer.....

Jeg er ikke hjemme lige nu, men har lige installeret en prøveversion af Adobe Acrobat (http://www.adobe.com/products/tryadobe/download.jsp?ftpID=2191) på denne pc og det virker fint; et dokument bestående af 5 ark og 2 diagrammer.

Underligt...

et andet (dog ikke freeware program) er det under faq'en et spm+svar omkring emnet :
http://www.win2pdf.com/support/faq.htm

... og printe til en fil er ikke lige en brugbar løsning (kan ikke åbne filen efterfølgende, da den melder om fejls

Det er faktisk også det Adobe Acrobat gør. Adobe Acrobat gemmer filen som en postscript-fil og denne fil konverteres så af Adobe Distiller til PDF.

jeg sendte lige en forespørgsel til CutePDF - deres svar er at man lige skal have et af deres andre programmer til $49.95 - http://www.cutepdf.com/Products/CutePDF/plus.asp#

Jeg har lige installeret en prøveversion - og det fungerer nu ;o|
Det ville dog være at foretrække at det var freeware hele vejen i gennems

arbejdsgangen fra 3 filer til 1 fil sker således efter at printet er lavet - men inden den gemmes som en pdf-fil (gemmes dog nok som en temp-fil)

jeg vil nok genoverveje layoutet i excelarket - så printet af diagrammerne kommer ud sammen med andre tal/skemaer i de enkelte ark. Dermed kommer output/print også ned på færre sider (og dermed færre print-omkostninger ifm. papirprint).

Samtidigt kan jeg benytte freeware-versionen af CutePDF.

Smid et svar - det kan nok ikke helt kan løses uden yderligere software, men din hjælp har fået mig videre i processen ;o)

Et svar fra mig.

Nu ved jeg ikke om CutePDF fungerer som Adobe Acrobat, men jeg har selv rodet meget med konvertering til PDF og blev inspireret af siden: http://www.igetit.net/SampleCode/Excel_To_PDF_vba_code.htm

Svaret :-)

jeg testede arket og funktioonen på en maskine, der har Adobe installeret ; det gav desværre samme resultat ; 3 pdf-filer (som efterfølgende skal samles manuelt)

Jeg vil lige kaste mig over det link (har netop donwloadet deres excel-ark for at teste / integrere med mit excel ark) - jeg poster lige mine erfaringer senere ;o)

FYI

Jeg 'legede' i weekenden lidt videre med makroen fra 08/07-2004 20:56:49. I den forbindelse kom jeg også ud for situationen med 1 pdf-fil med ark og 2 pdf-filer med diagrammer.
Jeg kunne ikke gennemskue hvordan sitationen opstod, men jeg prøvede at oprette en helt ny workbook, lave de fem ark og to diagrammer og derefter kopiere koden fra 08/07-2004 20:56:49 ind og køre makroen. Resultatet var een pdf-file...

det var da lige godt pokkers.... - lyder unægtelig ulogisk
Men hvis problemet kan løses ved at jeg indlægger makro først og dernæst opbygger diverse ark ; så er alt jo på plads (dog lidt bange for at den evt. senere går tilbage til 3-prints-metoden)

altid rart at have lidt at nørde med i weekenden ;o)

har lige rodet lidt med igetit-linket ; det kræver åbenbart Adobe Acrobat installeret - nok lidt overkill mht. behov kontra licenser til skal betales på 30-60 brugere (forstår det såledess at Adobe skal være installeret på de maskiner der skal kunne lave pdf)

din erfaring med at den fint kan udskrive til een fil i en helt ny workbook - kan hermed bekræftes - virker også fint her..

rart ; men underligt...