Makro til udskrift af 3 sider

Kunne egentlig godt tænke mig, at den både udskriver og gemmer i PDF format.

sub test
' sætter udskiftsområder til de 3 sider
activesheet.PageSetup.PrintArea = "$A$1:$AJ$36"

' printer de 3 sider ud til printer
ActiveWindow.SelectedSheets.PrintOut Copies:=1

'gemmer i det aktuelle ark i pdf
    ChDir "C:\Users\MRKR\Desktop" ' denne linje skal ændres til den placering du ønsker
    activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Kim\Desktop\kundedata_klient1i.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True


'sætter udskriftsområder til alt hvad der er på arket, som det var oprindeligt
activesheet.PageSetup.PrintArea = "$A$1:$AJ$36"
end sub


BEMÆRK:
At du skal have en plugin til office for at du kan gemme i pdf.
HAr du ikke den kan du hente den på Microsofts hjemmeside.

Der var lige en lille fejl nederst :-)

'sætter udskriftsområder til alt hvad der er på arket, som det var oprindeligt
activesheet.PageSetup.PrintArea = ""

Hej Mrkr

Kunne godt tænke mig, at jeg kunne styre hvad der skal være på de 3 sider, lige som jeg mangler gentagelsen af kolonnen A:H. Har du et bud?

Gentagelse af a til h gør du under:

Sideopsætning og fanen "ark"
I feltet Gentag kolonner til venstre skiver du A:H

Så skulle den være på plads.

Med hensyn til at styre hvad der kommer på de 3 sider gør koden at den udskriver fra linje 1 til 36 i kolonnerne A:AJ

Ønsker du ikke at ændre linjenumrene skal du blot gøre det i dennelinje
activesheet.PageSetup.PrintArea = "$A$1:$AJ$36"

Hej Mrkr smid et svar så jeg kan få lukket spørgsmålet

det kommer her