Newsgroup: it.comp.appl.access
Titolo: PDF via codice

Vorrei sapere se esiste un metodo per generare i report di access 
direttamente da maschera via codice, conosce l'esistenza di diversi tool 
free ma vorrei generare direttamente tramite codice i report.
Ringrazio @Alex per avermi postato in privato consigliandomi di rivolgermi a 
tutti Voi ciao a tutti
Pasquale

 ha scritto nel messaggio
news:srEvd.22931$Lg7.7...@twister1.libero.it...

Devi sempre appoggiarti a Tool Esterni, PDF č proprietario, ma
non č un problema, puoi inserire nell'Installazione il DOWNLOAD
da Internet dell'applicativo e lanciarlo prima dell'installazione, ma mi
pare
che ora sia distribuibile anche...!
Questo č il sito da cui scaricare l'applicativo Gratuito.
http://www.cutepdf.com/products/cutepdf/writer.asp
Ho fatto un Test, ma purtroppo pare che con la Versione Free non
gli freghi molto dei Registri, quindi ti apre il Browser di Salvataggio,
cosa peraltro non bella.
Sotto ti allego un pezzo di Codice che ho provato.
ALTERNATIVE:
Leggi questo 3D interessante:
http://groups.google.it/groups?q=pdf&hl=it&lr=&group=it.comp.appl.access&selm=8qscph%242l1%241%40pegasus.tiscalinet.it&rnum=6
ESEMPIO DI CODICE PER CUTEPDF:
Option Compare DatabaseOption ExplicitConst HKEY_CLASSES_ROOT =
&H80000000Const HKEY_CURRENT_CONFIG = &H80000005Const HKEY_CURRENT_USER =
&H80000001Const HKEY_DYN_DATA = &H80000006Const HKEY_LOCAL_MACHINE =
&H80000002Const HKEY_PERFORMANCE_DATA = &H80000004Const HKEY_USERS =
&H80000003Const KEY_ALL_ACCESS = &HF003FConst KEY_CREATE_LINK = &H20Const
KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_EXECUTE
= &H20019Const KEY_NOTIFY = &H10Const KEY_QUERY_VALUE = &H1Const KEY_READ =
&H20019Const KEY_SET_VALUE = &H2Const KEY_WRITE = &H20006Private Type
SECURITY_ATTRIBUTES   nLength As Long   lpSecurityDescriptor As Long
bInheritHandle As LongEnd TypePrivate Declare Function RegCreateKeyEx Lib
"advapi32.dll" Alias "RegCreateKeyExA" (ByVal _   hKey As Long, ByVal
lpSubKey As String, ByVal Reserved As Long, ByVal lpClass _   As String,
ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes _
As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegSetValueExString Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, _         ByVal lpValueName As
String, ByVal Reserved As Long, _         ByVal dwType As Long, ByVal
lpValue As String, _         ByVal cbData As Long) As LongPrivate Const
REG_SZ = 1Private Sub Print_PDF()   Dim wordapp As Object   Dim worddoc As
Word.Document   Dim lRetVal As Long   Dim hKey As Long   Dim sValue As
String   Dim secattr As SECURITY_ATTRIBUTES  ' security settings for the key
secattr.nLength = Len(secattr)   secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = 1   lRetVal = RegCreateKeyEx(HKEY_CURRENT_USER,
"Software\Custom PDF Printer", _                  0&, vbNullString, 0,
KEY_ALL_ACCESS, secattr, hKey, lRetVal)   sValue = "C:\DocToPrintName.pdf"
RegSetValueExString hKey, "OutputFile", 0&, REG_SZ, sValue, Len(sValue)
sValue = "1"   RegSetValueExString hKey, "BypassSaveAs", 0&, REG_SZ, sValue,
Len(sValue)   Set wordapp = CreateObject("Word.Application")   Set worddoc =
wordapp.Documents.Open("C:\DocumentInput.doc")   wordapp.ActivePrinter =
"CutePDF Printer"   wordapp.PrintOut   worddoc.Close   sValue = "0"
RegSetValueExString hKey, "BypassSaveAs", 0&, REG_SZ, sValue, Len(sValue)
RegCloseKey (hKey) End SubPrivate Sub Comando0_Click()   Call Print_PDFEnd
SubCiao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:cpnb83$f7q$1...@lacerta.tiscalinet.it...
