Print makro i excel som udskriver til Pdf (uden at bekræfte dokumentnavn og folder, altså autonavn på pdf printet).

Kan du bruge denne:

        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            WB_Filename, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

WB_Filename er sti til placering + navn på dokument eks.:

WB_Filename = "C:\Documents and Settings\My Documents\WBReport_" & Today()& ".pdf"

Hej
1. problem)
Den stopper ved "Today" og skriver "Sub or funktion not defined"
(køre office 2003)

OK - Today bruges egentlig kun som en unik identifier, så den kan udelade helt. ellers prøv med now() istedet.

WB_FileName skal selvfølgelig står først :-)

Denne burde virke:

Sub Printtest()

'WB_Filename er sti til placering + navn på dokument eks.:

    wb_filename = "C:\Documents and Settings\My Documents\WBReport_" & Weekday(Now(), vbMonday) & "_" & WorksheetFunction.WeekNum(Now(), 1) & ".pdf"

  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            wb_filename, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True


End Sub


Weekday og Weeknum anvender jeg her til at danne det unikke filnavn

Hej
Så siger den
"Objekt does´t support property or method"
på
"ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            WB_Filename, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True"
Hilsen Mll

Så virker den nok ikke på 2003. Hvis du har installeret en PDF printer kunne du evt. forsøge dette:

ActiveWorkbook.PrintOut ActivePrinter:="PDFPrinter"

hvor PDFPrinter er navnet på den installerede PDF printer eks. "PDFCreator"

Med PDF Creator gemmes dokumentet så manuelt via en dialogboks.

Hej

Jeg går ud fra at jeg kan kopier direkte in i en makro. Det ser sådan ud. Men den stopper allerede på navngivning af filen, hvis jeg bytter rundt.

Skal jeg evt. fjerne noget?
Hilsen Mll


Sub Makro26()
'
' Makro26 Makro
' Makro indspillet 2012-01-12
'
'
    wb_filename = "h:\PDFer\WBReport_" & Weekday(Now(), vbMonday) & "_" & WorksheetFunction.WeekNum(Now(), 1) & ".pdf"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    wb_filename, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
    Range("I19").Select
End Sub

Prøv at fjerne "& Weekday(Now(), vbMonday) & "_" & WorksheetFunction.WeekNum(Now(), 1)" så burde den gemme under navnet WBReport_.pdf

Dutter ikke. Så stopper den stadig ved førstnævnte problem.
Hilsen M

Hvis du installere PDFCreator (er gratis) og aktivere PDFCreator objektet (Under Tools - Referencer), så virker denne.

Sub PrintTest()

Dim PDFJob As PDFCreator.clsPDFCreator
Dim PDFPath As String
Dim PDFName As String

Set PDFJob = New PDFCreator.clsPDFCreator

PDFPath = "H:\Documents\"
PDFName = "WBReport_1.pdf"

With PDFJob

    .cOption("UseAutosave") = 1
    .cOption("UseAutosaveDirectory") = 1
    .cOption("AutosaveDirectory") = PDFPath
    .cOption("AutosaveFilename") = PDFName
    .cOption("AutosaveFormat") = 0
    .cClearCache

End With


ActiveWorkbook.PrintOut ActivePrinter:="PDFCreator"

Hej
Eftersom det er det eneste svar jeg får, så lukker jeg. Er dog ikke helt optimal løsning.
Mvh marianne