Hjælp til makrokode.

Jeg glemte lige at oplyse at jeg har CuteFDP Writer instaleret.
/petert

Jeg fant denne fra tidligere spørgsmål som virker fint mht. at gemme som excel fil.
Sub GemEtEnkeltArk()
    myfilename = Range("B2").Value
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\xxxx\yy\xxxx\timesedler\2008\" & myfilename & ".xls"
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End Sub

Men hvordan kombinerer jeg denne makro med resten af spørgsmålet.
/petert

Det med at vælge Pdf writer som printer, kan du optage i en makro, problemet er at få den til at gemme pdf med det navn som ønsker, da det er et selvstændig program.

hvis jeg optager makroen ser den sådan ud.
Sub Makro2()
'
' Makro2 Makro
' Makro indspillet 27-01-2008 af xxxx yyyy
'

'
    Application.ActivePrinter = "CutePDF Writer på CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer på CPW2:", Collate:=True
End Sub

Kan man sammensætte disse to koder så den først kører gem som Excel og derefter som PDF og stopper der hvor jeg giver den navn (manuelt) ??
Petert

Ok, prøv dette.
Jeg tror ikke man kan ændre stien til hvor pdf skal gemmes, den tager altid den sidste sti..

    Application.ScreenUpdating = False
    Set aktivark = ActiveWorkbook.ActiveSheet
    myfilename = Range("B2").Value
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\xxxx\yy\xxxx\timesedler\2008\" & myfilename & ".xls"
'    ActiveWorkbook.SaveAs myfilename & ".xls"
    ActiveWorkbook.Close
    Application.ActivePrinter = "CutePDF Writer on CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer på CPW2:", Collate:=True
    aktivark.Select
    Application.ScreenUpdating = True

virker det?

Jeg kan ike få dette til at virke. men jeg kører de 3 makroer efter hinanden og til deler dem en knap.
Læg et svar så vi kan lukke dette og tak for hjælpen
/petert

hmm, det burde virke

Den kommer op og siger "invalig outside procedure" og så er "False" i første linje markeret
/petert

Hvordan kan det være at der ikke er SUB og END SUB i koden??
/petert

ja, undskyld :o)

Det skal der være

Sub Makro8()
Application.ScreenUpdating = False
    Set aktivark = ActiveWorkbook.ActiveSheet
    myfilename = Range("B2").Value
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\xxxx\yy\xxxx\timesedler\2008\" & myfilename & ".xls"
'    ActiveWorkbook.SaveAs myfilename & ".xls"
    ActiveWorkbook.Close
    Application.ActivePrinter = "CutePDF Writer on CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer på CPW2:", Collate:=True
    aktivark.Select
    Application.ScreenUpdating = True
end sub

Det begynder at hjælpe men den fejler her og denne linje er gul. 
Application.ActivePrinter = "CutePDF Writer on CPW2:"
Men når jeg kører makroen enkeltvis fejler den ikke
/petert

sådan ser koden ud der virker, jeg kan ikke se der er forskel.

Sub Makro2()
'
' Makro2 Makro
' Makro indspillet 27-01-2008 af xxxx yyy
'

'
    Application.ActivePrinter = "CutePDF Writer på CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer på CPW2:", Collate:=True
End Sub

hmm, prøv dette:

Sub Makro8()
Application.ScreenUpdating = False
    Set aktivark = ActiveWorkbook.ActiveSheet
    myfilename = Range("B2").Value
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs "C:\xxxx\yy\xxxx\timesedler\2008\" & myfilename & ".xls"
'    ActiveWorkbook.SaveAs myfilename & ".xls"
    Application.ActivePrinter = "CutePDF Writer on CPW2:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "CutePDF Writer på CPW2:", Collate:=True
    ActiveWorkbook.Close
    aktivark.Select
    Application.ScreenUpdating = True
end sub

Den melder fejl i samme linje. Hvad hulen gør vi galt??
Den skriver
Run time error 1004
Method 'activeprinter'of object'_Application'failed
/petert