vba programmering og pdf

Prøv at printe til en pdf-printdriver i stedet for en printer. fx pdf995 eller cutepdf, hvor du kan vælge driveren som default printer.

http://www.mvps.org/access/reports/rpt0011.htm

pdf driveren skal ikke stå som default.
programmet skal virke sådan, at kun den her rapport skal gemmes som pdf.

If you open the report and then right click with the mouse. Choose Page Setup and tehn on the Page Tab choose Use Specific Printer and then press the Printer buttin to choose your printer

Så kan du jo lade din kode vælge en "pdf-printer" inden den udskriver ogsætte tilabe til standardprinteren, når den er færdig. Problemet er, at Access ikke selv kender pdf-formatet.

tilabe = Tilbage :-)

jkrons, hvordan finder jeg udaf, hvad min pdf-printdriver hedder, og ved du hvad jeg skal tilrette i min kode ovenfor ?
terry, jeg har ikke tid til at se på det der ligenu, men jeg kigger senere i dag

If Acrobat distiller is installed on the PC then there should be another printer installed which can then be used to open/print the document

do you have a program installed which you can use to create PDF documents, if not then you need one!

Min pdf995 printer hedder simpelthen pdf995, men som terry skriver skal du have et program på din pc, der kan danne pdf filer.

jeg har acrobat distiller

So you should have a (PDF) printer attached to the program. Do you?

If you do then follow instructions 02/05-2005 14:00:44

i min Access printboks kan jeg vælge mellem 3 forskellige printere, og derudover disse 2:

Acrobat distiller
Acrobat PDF-writer

men hvordan putter jeg det her ind i min kode ?

You can attached a defualt printer to the report as mentioned 02/05-2005 14:00:44

Se evt her hvordan du kan ændre en rapprts printer via kode:

http://support.microsoft.com/?id=129397

terry det fungerede fint, hvis jeg bare kunne få det til at ske via kode, så ville det være perfekt

cant you use
DoCmd.OpenReport "ReportName"

jo, men brugeren skal i almindelighed kun skrive rapporten ud til printeren, men kun en bestemt handling skal gemme som pdf.
men når jeg bruger denne måde, så bliver jo pdf default printer, og det vil jeg helst ikke

Mon ikke det nemmeste er at lave to versioner af rapporten. En til brug for pdf gemning og en til udskrift.

so you need to be able to choose which "printer" to use! >14:22:10

jeg vil se på det her senere i dag, og så vender jeg tilbage til jer

whats the status on this question?

status er, at jeg er meget optaget, men jeg kommer til det snart :)

nu virker mit program rimelig godt ! brugeren må selv højreklikke på musen og vælge at udskrive til pdf, men det kan vi muligvis leve med.
Den sidste problem er, at når filen skal gemmes, får jeg boksen SAVE FILE AS op ! Og det kan jeg ikke leve med, fordi jeg skal lave et loop, som gemmer en masse filer. Hvordan kan jeg løse det problem ? her er mit program igen:

Function LavPdfFiler()

Dim sCaption As String
sCaption = "MinPdfFil.pdf"
DoCmd.OpenReport "Report1", acViewPreview, "Filter"
Reports!Report1.Caption = sCaption
DoCmd.PrintOut
DoCmd.Close

End Function

Not sure when the "Save File As" dialog comes up, buty I would think it is because you need to replace an empty parameter with the location of the file to save. If it is empty then this will happen.

Whats the status here Peter, can we close please?

time to close!

ja det kan godt være at tiden er kommet til at lukke, men jeg fik altså aldrig et tilfredsstillende svar på mit problem, som stadigvæk ikke er løst.
men jeg lover at jeg skal få taget tid til at se på det hurtigt nu.

Hi!
Here 10/05-2005 20:12:52 you say that it is working "remelig fodt".

When do you get the "Save File As" dialog?

ja dialog boksen får jeg sandsynligvis, når programmet kommer til denne linje:

DoCmd.PrintOut

jeg har endnu ikke prøvet dit forslag om "replace an empty parameter with the location of the file to save", fordi jeg har simpelthen ikke haft tid, men jeg skal forsøge at få det prøvet snarest muligt.

status?

thanks

Har du fået løst problemet med saveas dialogen?

Det kan løses ved at anvende følgende kode:
____
Dim myPDF As PDFDistiller
Set myPDF = New PDFDistiller

'mere kode her!

myPDF.FileToPDF "C:\test.ps", "C:\test.pdf", ""
____

Eneste problem er blot at distiller forventer en ps fil. Der er jeg kommet til kort og har netop i dag oprettet spørgsmål vedr. dette

Jan