Come convertire un file Excel in PDF Attraverso VB6

file Adobe PDF sono documenti che è possibile distribuire ai lettori su Internet protetti. È possibile convertire diversi tipi di file in PDF per proteggere il vostro lavoro vengano copiati o modificati . Questi file possono essere convertiti on-the -fly utilizzando la programmazione Visual Basic . Questo è utile quando si dispone di documenti sul server web che si desidera proteggere e distribuire online. Visual Basic dispone di librerie interne utilizzate per convertire il file di Excel in PDF . Istruzioni
1

Create il vostro collegamento con il foglio di calcolo Excel . Questo viene fatto usando un oggetto di connessione che include il driver di Excel . Il codice seguente crea la connessione Excel :

Dim conn come ADODB.Connection

Dim connString As String

connString = " Driver = { Driver Microsoft Excel ( * . Xls ) } ; DriverId = 790 ; Dbq = excelfile.xls ; "

conn.ConnectionString = connString
2

Recuperare i dati dal foglio di lavoro di Excel . In questo esempio , tutte le informazioni dal foglio di calcolo Excel viene preso per convertire l'intero file per il PDF . Il codice seguente consente di copiare tutti i dati di Excel :

sql = "SELECT * FROM sheet1 "

excel_records = Recordset.Open sql , con, , adLockOptimistic , adCmdText

Sostituire " Foglio1 "con il nome del foglio di calcolo nel file .
3

creare il file PDF . È necessario prima avviare la classe PDF e specificare il file per il quale il contenuto viene trasferito. Il codice seguente crea e apre il file :

Dim pdf As New mjwPDF

pdf.PDFTitle = " Excel a PDF conversione"

pdf.PDFFileName = " converted.pdf "
4

salvare le informazioni Excel per il file PDF . Il codice seguente trasferisce i dati di Excel :

pdf.PDFTextOut excel_records.ToString
5

Chiudere i file di Excel e PDF per rilasciare le risorse utilizzate per aprirli. Questo è un bene per le prestazioni del server e consente di liberare eventuali blocchi del sistema operativo sul file . Il codice seguente rilascia i file :

Set pdf = Nothing

Set conn = Nothing