Como converter um arquivo do Excel para PDF Através VB6

Os arquivos Adobe PDF são documentos que você pode distribuir para os leitores na Internet protegido. Você pode converter vários tipos de arquivos para PDF para proteger o seu trabalho de ser copiado ou editado. Esses arquivos podem ser convertidos on-the-fly utilizando programação Visual Basic. Isso é benéfico quando você tem documentos em seu servidor web que você deseja proteger e distribuir online. Visual Basic tem bibliotecas internos utilizados para converter seu arquivo Excel para PDF.

Crie a sua conexão com a folha de cálculo Excel. Isso é feito usando um objeto de conexão que inclui o controlador do Excel. O código a seguir cria a conexão Excel:
Dim conn As ADODB.Connection
CONNSTRING Dim As String
CONNSTRING = "Driver = {Microsoft driver de Excel (* .xls)} - DriverID = 790- DBQ = excelfile.xls-"
conn.ConnectionString = CONNSTRING
Recuperar as informações da folha de cálculo Excel. Neste exemplo, todas as informações da folha de cálculo Excel é levado para converter o arquivo inteiro para o PDF. Os seguintes cópias de código de todos os dados do Excel:
sql = "* SELECT FROM sheet1"
excel_records = recordset.Open sql, engodo, adLockOptimistic adCmdText
Substituir "Sheet1" com o nome da sua planilha no arquivo.
Criar o arquivo PDF. Você deve primeiro iniciar a classe PDF e especificar o arquivo para o qual o conteúdo é transferido. O código a seguir cria e abre o arquivo:
pdf Dim As New mjwPDF
pdf.PDFTitle = "Excel para conversão de PDF"
pdf.PDFFileName = "converted.pdf"
Salve as informações de Excel para o arquivo PDF. O código a seguir transfere suas informações Excel:
pdf.PDFTextOut excel_records.ToString
Feche o Excel e PDF para liberar os recursos utilizados para abri-los. Isso é bom para o desempenho do servidor e libera os bloqueios do sistema operacional sobre os arquivos. O código a seguir libera os arquivos:
Set pdf = Nothing
Set Conn = Nothing

De esta maneira? Compartilhar em redes sociais: