Newsgroup: it.comp.appl.access
Titolo: problema con PDF writer in AXP

Buonasera a tutti. Per l'esportazione dei report in PDF fino ad ora usavo
con successo questo modulo scaricato da 
http://www.mpvs.org
. (riporto solo
l'inizio perche' credo che sia noto a molti).
Da poco sono passato ad office XP e ho notato che i report vengono
indirizzati ad un'altra stampante, benchè nella sostanza venga modificata la
stampante predefinita (l'acrobat PDF writer) e venga sostituito il nome
predefinito per l'output nel file win.ini.
Ci sono delle modifiche da apportare ? Altri hanno avuto lo stesso problema?
Grazie per la collaborazione
Giuseppe
Option Compare Database
Option Explicit
' These functions used with procedures from
' Microsoft Access 95 How-To
'(c) 1998 Ken Getz and Paul Litwin
' All rights reserved.
' Other modules from this source are:
' basDefaultPrinter
' basGetPrinters
' basIniFile
' basPrintTypes
' basToken
' You'll also need defaultprt.zip
Private drexisting As aht_tagDeviceRec
Const AcrobatName = "Acrobat PDFWriter"
Const AcrobatDriver = "PDFWRITR"
Const AcrobatPort = "LPT1:"
Sub ResetDefaultPrinter()
	Call ahtSetDefaultPrinter(drexisting)
End Function
Function ChangeToAcrobat()
    If ahtGetDefaultPrinter(drexisting) Then
        Dim dr As aht_tagDeviceRec
        With dr
            .drDeviceName = AcrobatName
            .drDriverName = AcrobatDriver
            .drPort = AcrobatPort
        End With
        Call ahtSetDefaultPrinter(dr)
   End If
End Function
Sub ChangePdfFileName(NewFileName As String)
   Call aht_apiWriteProfileString("Acrobat PDFWriter", _
            "PDFFileName", NewFileName)
End Sub

naturalmente intendevo citare il sito 
http://www.mvps.org/access/

 ha scritto nel messaggio
news:dMHU9.2212$YG2....@twister1.libero.it...

Ciao. Anche io sto cercando di esportare (senza molto successo devo dire)
dei report in formato pdf.
Il modulo che tu hai citato a cosa serve di preciso?
In dettaglio sto cercando di esportare tutte le pagine del mio report (sono
circa 100 e ognuna descrive un certo prodotto), no come unico file .pdf da
100 pagine (che dovrei poi estrarre 'a mano' in Acrobat, ma come 100 files
.pdf da 1 pagina ciascuna, utilizzando come nome file un campo della query
di appoggio al report.
Il modulo che tu utilizzi può essere un inizio per il mio lavoro?
Grazie
Giancarlo

 ha scritto nel messaggio
news:b00ca9$6rs$1...@fata.cs.interbusiness.it...



Oltre alle informazioni che ti abbiamo dato in post precedenti potresti
crearti una routine che oltre ad eseguire il ciclo di stampa contenga anche
le procedure per rinominare quel file stampato direttamente nella cartella
dove verrà salvato a patto di conoscere la destinazione.
Ti avevo scritto:
"Ciclando opportunamente un codice del genere non dovresti avere problemi:
All'apertura del report conta le pagine dopo aver impostato in un modulo
pubblico una variabile globale: Global PgReport as Integer.
Private Sub Report_Page()
PgReport = Me.Pages
End Sub
For i = 1 to PgReport
DoCmd.PrintOut acPrintAll, i, i, acMedium, 1, True
next i
Così se stampi MioReport.pdf rinomini il file in MioReport1.pdf e poi stampi
ancora, rinomini e così via. Inserirai il codice all'interno del ciclo di
For.
Ciao, Carlo

CUT
vedi ancora questo link:
http://www.mvps.org/access/api/api0005.htm

 ha scritto nel
messaggio news:d8UU9.37566$AA2.1...@news2.tin.it...

Ho risolto in altro modo!!!
La soluzione che ho trovato prevede l'utilizzo di un software OCR, tipo
Omnipage che ha anche una funzione 'salva ogni pagina del documento come
singola pagina'......
In pratica:
esporto il report di 100 pagine in un unico file PIPPO.pdf
utilizzo Omnipage per ottenere in una cartella Esportazione' 100 files .pdf
che si chiamano: PIPPO001.pdf, PIPPO002.pdf, ecc.....
Ora mi (ti) chiedo: una volta ottenuti tutti questi files è possibile
rinominarli, utilizzando come nome file i valori contenuti in un campo di
una query?
In pratica con query1 ottengo nel campo [nome] 100 valori: Luca, Marco,
paolo, ecc.... e vorrei trovare un comando 'rinomina' che attribuisca a
PIPPO001.pdf il nome Luca.pdf, PIPPO002.pdf --> Marco.pdf, ecc.....
Secondo te si può fare?
Scusate per le tante domande..:-)
Grazie a tutti.
Giancarlo


Prova questi collegamenti:
http://www.mvps.org/access/api/api0005.htm
http://www.mvps.org/access/api/api0014.htm
Ciao, Carlo


scusa se insisto con la mia teoria di dividere il report (1 report = 1
cliente)
come mai non č applicabile nel tuo caso?
otterresti subito i file col nome che vuoi, non dovresti passare per un
secondo software e in piů sarebbe tutto gestibile da un unico punto (un
pulsante in access...)
il sw ocr č gestibile tramite codice da access?


Ciao. Giancarlo


sbagliato! :-)
da codice, apri un recordset con tutti i clienti per cui devi stampare il
report e fai scorrere il recordset, riaprendo il report filtrando ogni volta
per il cliente corrente nel recordset.
