Mestres,
Estou com problema na geração do arquivo pdf. Já pesquisei soluções no forum e extra forum e não encontrei.
Preciso limitar a quantidade de páginas geradas no pdf, quando o usuário gera o pdf ele está sempre gerando 2 páginas e a segunda sempre fica em branco, e preciso que seja limitada a quantidade de páginas.
Algum sábio a me ajudar??
Segue função utilizada na geração do pdf.
Private Sub btn_gerarpdf_Click()
On Error GoTo err_saida
Dim caminho As String
caminho = gCaminho & "\" & gTipo & " " & gNumeroAtend & " Form.pdf"
DoCmd.OutputTo acOutputReport, "formulario", acFormatPDF, caminho, , , 1
Exit Sub
err_saida:
MsgBox err.Number & " - " & err.Description
End Sub
Estou com problema na geração do arquivo pdf. Já pesquisei soluções no forum e extra forum e não encontrei.
Preciso limitar a quantidade de páginas geradas no pdf, quando o usuário gera o pdf ele está sempre gerando 2 páginas e a segunda sempre fica em branco, e preciso que seja limitada a quantidade de páginas.
Algum sábio a me ajudar??
Segue função utilizada na geração do pdf.
Private Sub btn_gerarpdf_Click()
On Error GoTo err_saida
Dim caminho As String
caminho = gCaminho & "\" & gTipo & " " & gNumeroAtend & " Form.pdf"
DoCmd.OutputTo acOutputReport, "formulario", acFormatPDF, caminho, , , 1
Exit Sub
err_saida:
MsgBox err.Number & " - " & err.Description
End Sub