PLANILHA EM PDF

HENRYMARQUES 26/01/2014 19:46:50
#433574

Boa noite, estou com dificuldades para salvar uma planilha em pdf.
segue o código para uma ajuda de grande importância.
Em anexo vai um print do problema.
obrigado.

Private Sub Command_Salva_PDF_Click()
If Me.Text_valortotal <= [Ô]0[Ô] Then
MsgBox [Ô]FAÇA UMA PESQUISA PARA PROSEGUIR[Ô], vbInformation
Exit Sub
End If

CONFIRMAR = _
MsgBox([Ô]DESEJA SALVAR O RELATÓRIO COMO PDF ?[Ô], vbYesNo + vbQuestion)
If CONFIRMAR = vbNo Then
Exit Sub
End If

Dim i As Integer
Dim cont As Integer
i = 5

Set BANCO = OpenDatabase(ThisWorkbook.Path & [Ô]/[Ô] & ThisWorkbook.Name, False, False, [Ô]Excel 8.0[Ô])
Set TABELA = BANCO.OpenRecordset([Ô]select * from [RELATORIO$];[Ô])

Plan5.Range([Ô]A7:H65000[Ô]).ClearContents

For cont = 0 To Me.ListBox_produto.ListCount - 1


Plan5.Range([Ô]A[Ô] & i + 1) = Me.ListBox_produto.List(cont, 1)
Plan5.Range([Ô]B[Ô] & i + 1) = Format(Me.ListBox_produto.List(cont, 2), [Ô]MM/DD/YYYY[Ô])
Plan5.Range([Ô]C[Ô] & i + 1) = Me.ListBox_produto.List(cont, 3)
Plan5.Range([Ô]D[Ô] & i + 1) = Me.ListBox_produto.List(cont, 4)
Plan5.Range([Ô]E[Ô] & i + 1) = Me.ListBox_produto.List(cont, 5)
Plan5.Range([Ô]F[Ô] & i + 1) = Me.ListBox_produto.List(cont, 6)
Plan5.Range([Ô]G[Ô] & i + 1) = Me.ListBox_produto.List(cont, 7)
Plan5.Range([Ô]H[Ô] & i + 1) = Me.ListBox_produto.List(cont, 8)

i = i + 1

Next

Plan5.Range([Ô]G2[Ô]).Value = Me.Text_valortotal
Plan5.Range([Ô]C3[Ô]).Value = Me.Label_data
Plan5.Range([Ô]F4[Ô]).Value = Me.Text_datainicial
Plan5.Range([Ô]H4[Ô]).Value = Me.Text_datafinal



Application.ScreenUpdating = False
Plan5.Visible = True
Plan5.Activate

[txt-color=#0000f0]ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[Ô]C:\[Ô] & Pasta & [Ô]\[Ô] & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True[/txt-color]


Plan1.Activate
MsgBox [Ô] O relatório foi salvo com sucesso![Ô], vbInformation
ThisWorkbook.Save
Plan5.Visible = False
Me.Command_sair.SetFocus

End Sub