Excel 2000 - makro der kan printe sider fra flere ark i et job

lytter med :-)

Hvis du har Adobe Acrobat kan du vel bare samle de enkelte PDF filer til én. Medmindre det er det du vil undgå ?

Den opgave kan du løse med FinePrint, funktionen Defer, altså at udskrive flere ark/sider som eet printjob.
Det er desværre ikke freeware, til gengæld skidegodt. Læs mere og download trail version her
www.fineprint.com

blackadder -> Det er lige præcist det jeg vil undgå

halifax -> Jeg har set på FinePrint, men det lader ikke til at jeg kan bruge programmet til at AUTOMATISERE processen, hvilket var hele idéen med den makro jeg vil lave.

Er det samme områder der skal printes hver gang ?

Ja det er.

Faktisk bliver der flere makroer i regnearket. Hver makro skal kunne printe sin egen sekvens af ark/sider. En af makroerne vil f.eks. printe ovenstående sekvens (hver gang man kalder den), en anden makro vil f.eks. printe

Ark 1, side 3
Ark 2, side 1
Ark 3, side 2
Ark 4, side 2

blackadder hvis du har en god ide, er du velkommen til at fange mig på ICQ: 48754367 - det går lidt hurtigere. Jeg skal nok sørge for at offentliggøre svaret her.

Ok

Opgaven kan ikke løses fra Excel, da Excel sender et print job pr. ark.

Kan man ikke printe en selection der spænder over flere ark ?

nope

jo, det kan du godt, men hvert ark giver et print job.

Det at et arkskift giver et nyt print job er selvfølgelig årsagen til at et arkskift giver tvungen sideskift. Du kan selvfølgelig lave en makro, som samler dine selections på et midlertidig ark, som så skrives ud, men hvor fedt er det!

Tja, hvis det er det der skal til, så er det vel ikke det store problem at lave det, evt. med det midlertidlige ark skjult.

Jeg snakkede lidt videre med alvion igår over ICQ, det virkede som om han havde fundet en løsning, også noget med et midlertidigt ark.

Må vi andre høre hvad løsningen er ?? :-)

Løsningen er ikke helt på plads endnu. Jeg har prøvet at lægge siderne over i et nyt ark, men der opstod et nyt problem: De enkelte sider har ikke ens rækkehøjde!

Så nu vil jeg spørge "feltet": Kan jeg ændre rækkehøjden for nogle markerede felter, uden at det påvirker de rækkehøjden for de øvrige felter i et ark?

Jeg lavede følgende makro, som så desværre ikke kan bruges da rækkehøjden som sagt ikke er ens i siderne fra de forskellige ark.

--------------------------------------------------
Sub PrintPDF()
    Dim copylist(4) As Variant
   
    copylist(0) = Array("2.6.1", "AJ:AP", "A1")
    copylist(1) = Array("2.6.2", "AJ:AP", "H1")
    copylist(2) = Array("2.6.3", "AQ:AW", "O1")
    copylist(3) = Array("2.6.4", "AJ:AP", "V1")
    copylist(4) = Array("2.6.5", "AO:AV", "AC1")
   
    Application.CutCopyMode = False
   
    For i = 0 To UBound(copylist)
        Sheets(copylist(i)(0)).Select
        Columns(copylist(i)(1)).Select
        Selection.Copy
        Sheets("print").Select
        Range(copylist(i)(2)).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
   
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$58"
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
   
    Application.ActivePrinter = "Acrobat PDFWriter på LPT1:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Acrobat PDFWriter på LPT1:"

    Sheets("print").Select
    Cells.ClearContents
End Sub

halifax -> Din løsning med FinePrint bliver nok den jeg anvender, så du får point.

Jeg har dog muligvis en anden løsning, men det kræver svar på set spørgsmål. Se http://www.eksperten.dk/spm/240522

Tak for point. Det med makro'er kan jeg desværre ikke hjælpe med.

Men kon til at tænke på, at med fineprint kan man gemme udskriftsjobbet og genudskrive det samme på et senere tidspunkt.
Hvad så hvis der i mellemtiden er lavet ændringer i de ark, som printjobbet indeholder? Får man så de samme ark printet ud, nu blot med ændringerne i forhold til sidste print?
Det skal jeg da vist prøve selv at lege med, når det gode vejr igen er forbi for denne gang.    :)