Newsgroup: it.comp.appl.access
Titolo: convertire doc in pdf

ciao,
esiste un modo per convertire un foglio word in pdf da una routine access in 
modo del tutto trasparente all'utente? (senza driver pdf o programmi 
esterni)
qualcosa tipo le dll del sito di lebans che convertono un report in pdf
ciao, Mat 

 ha scritto nel messaggio 
news:45eee2a4$0$17953$4faf...@reader1.news.tin.it...

Perchè le dll di Lebans non sono librerie esterne?
Il pdf è un formato proprietario e come tale richiede una serie di routine 
per essere generato.
Per esempio l'ultimo word 2007 supporta il salvataggio in pdf ma anche 
questo ha bisogno di librerie apposite.
Se hai word 2007 puoi fare tutto da qui (da Access), altrimenti hai bisogno 
di una qualche libreria esterna.
Ti suggerisco PdfCreator.
Ciao, Carlo 

 ha scritto nel messaggio 
news:esmol4$d5t$1...@tdi.cu.mi.it...

Ciao, forse non ho spiegato bene il mio problema...
con le dll di lebans io da codice decido il nome del report e il nome del 
file che voglio ottenere in pdf  e la conversione è perfetta e invisibile 
all'utilizzatore...es dalla maschera fattura clicca sul pulsante mail e si 
trova la sua bella mail con il pdf della fattura tutto in automatico. 
(quindi per i report nessun problema)
Per la conversione di un DOC avevo dato un'occhiata a pdfcreator ma con  pdf 
creator ho dei problemi nel caso sia già presente nel pc dove vado ad 
installare il mio software, poi posso avere utenti che cancellano la 
stampante virtuale perchè non sanno cosa sia...oppure cambiano i settaggi 
dell'output di pdfcreator mandando a rotoli la mia conversione automatica
...a meno che non sia possibile da codice lanciare una stampa di un file 
word sulla stampante virtuale pdf e catturare il nome del file ottenuto 
bypassando l'interfaccia utente di pdfcreator
Insomma quello che vorrei è decidere da codice il nome del file doc e 
trovarmi il relativo pdf su una cartella che mi sono prestabilito senza 
cozzare con tutte le possibili manomissioni dei parametri di pdfcreator che 
un utente può fare
ciao
Mat


Qualcosa del genere:
http://www.softinterface.com/Convert-Doc/Foreign/Italian/Convertire-Doc.htm
che funziona anche da riga di comando.
O questo?
http://itextsharp.sourceforge.net/
Il problema è che costicchiano un po'.
Ciao, Carlo 

 ha scritto nel messaggio 
news:esmub5$lab$1...@tdi.cu.mi.it...

ok grazie...ma cercavo qualcosa di free.
vedo se trovo qualcosa in rete
Mat

 Mat
Non so se ti possa essere utile, ma io da VBA di word, avevo creato
questa macro che funziona:
In pratica prendeva il nr. di protocollo scritto nel documento,
rinominava il documento con tale nr. di protocollo nella cartella c:
\offerte. Il tutto fatto da macro. La macro poi l'ho salvata nel .dot
del modello di documento che utilizzo per questo tipo di protocollo
Ecco alcuni comandi
Sub CRM()
'Definisco il percorso dove salvare
Const conPercorso As String = "c:\offerte"
Dim rTMp As Range
Dim vTMp As Range
Dim protNewVersion As String
Dim strNameFile As String
Dim strControllo As String
Dim prot As String
 strNameFile = ActiveDocument.Name
 strControllo = Mid(strNameFile, 1, 5)
 If strControllo = "Docum" Then
        With ActiveWindow.View
           .ShowRevisionsAndComments = False
           .RevisionsView = wdRevisionsViewFinal
        End With
        ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
         CommandBars("Task Pane").Visible = False
         Set rTMp = Selection.Paragraphs(1).Range
            If rTMp.Characters(1) = "x" Then
                rTMp.Start = rTMp.Start + 1
                rTMp.End = rTMp.End - 1
                rTMp.Select
                MsgBox rTMp
                prot = rTMp
                ChangeFileOpenDirectory conPercorso
                ActiveDocument.SaveAs FileName:=prot
             Else
                MsgBox "Non c'è il numero di protocollo e non è stato
salvato il documento"
            End If
    Else
        With ActiveWindow.View
           .ShowRevisionsAndComments = False
           .RevisionsView = wdRevisionsViewFinal
        End With
      protNewVersion = Mid(strNameFile, 1, 17)
      ChangeFileOpenDirectory conPercorso
      ActiveDocument.SaveAs FileName:=protNewVersion
      With Selection
        .HomeKey Unit:=wdStory
        .MoveDown Unit:=wdLine, Count:=1
        .MoveRight Unit:=wdCharacter, Count:=11
        .MoveRight Unit:=wdCharacter, Count:=17, Extend:=wdExtend
        .TypeText protNewVersion
      End With
      MsgBox "Il file è stato salvato con il nome del protocollo e il
nr. di protocollo è stato aggiornato"
   End If
End Sub
Se hai bisogno di spiegzioni basta che chiedi,
ciao,
Samantha

 ha scritto nel messaggio 
news:1173353823.8...@h3g2000cwc.googlegroups.com...



Ecco alcuni comandi
Sub CRM()






         Set rTMp = Selection.Paragraphs(1).Range



   End If
End Sub

----
si ma la connessione UMTS o GPRS?
Mat