23. marts 2006 - 12:54Der er
3 kommentarer og 1 løsning
Flere Excel faneblade til én PDF-fil
Hej Jeg har følgende
Sheets(Array("Spec.", "Dim. Func.")).Select 'navne fpå fanebladene Application.ActivePrinter = "Adobe PDF på Ne01:" ' Valg af printer ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True Sheets("Front").Select ' tilbage til forside
Det virker i og for sig OK, blot med den lille twist at jeg bliver bedt om at at angive et fil navn, for hvert faneblad. Jeg ville gerne om man kunne få dem samlet i et dokument. Desværre opfører den sig på samme måde, når man går det manuelt.
Har gennemsøgt nettet, og fundet ud af at Excel generer et printjob for hvert ark. det er derfor den generer to filer. Nogen der har erfaring med fra VB at samle to filer i en vha distiller/adobe writer?
Og det kan man så god aligevel, man skal blot sikre sig at sideopsætning, med opløsning og papirstr. er den samme, så kan det lykkedes. med nedenstående lykkedes opgaven.:
Private Sub CommandButton1_Click() Sheets(Array("Spec. 802", "Dim. Func.")).Select Application.ActivePrinter = "Adobe PDF på Ne01:" Sheets("Dim. Func.").Activate With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "&16&A" .RightHeader = "" .LeftFooter = "" .CenterFooter = "&""Arial,Fed""&18side &P af &N" .RightFooter = "" .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True Sheets("Front").Select End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
