Início
Eloirp Ter 11 Jul 2017, 9:05 amOlá Amigos,
Não estou conseguindo configurar o tamanho do papel para impressão de um relatório diretamente em pdf, sem seleção manual da impressora, pois gostaria de reduzir a altura do mesmo para que possa ficar compatível com o arquivo que vai importar esta impressão.
Abaixo o código da impressão onde acredito que deveria acrescentar algum critério para definir os parâmetros:
Private Sub bt_Buscar_Click()
On Error GoTo trataerro
DoCmd.Hourglass True 'Habilita a Ampulheta
DoCmd.OpenForm "sys_ProcessandoBt"
Dim strNomeRel As String, strCaminhoCompleto As String
strNomeRel = "RCP_100_v1_ CatalogoProdutos"
strCaminhoCompleto = "" & strRelPath2 & "\RCP-100 - Catálogo de Produtos para Venda " & Format(Now(), "ddhhmmss") & ".pdf"
Call Load_CatalogoData
DoCmd.OutputTo acOutputReport, strNomeRel, acFormatPDF, strCaminhoCompleto
Application.FollowHyperlink strCaminhoCompleto
DoCmd.Hourglass False 'Desabilita a Ampulheta
sair:
Exit Sub
trataerro:
If Err.Number = 2493 Then
MsgBox " Houve um erro no processo, reinicie o iniciar novamente por favor! ", vbOKOnly, "SieWeb"
ElseIf Err.Number = 3010 Then
MsgBox " Tabelas temporárias não foram deletadas pelo sistema, informe o administrador! ", vbOKOnly, "SieWeb"
Else
MsgBox Err.Description & " Número: " & Err.Number
End If
Resume sair:
End Sub
Não estou conseguindo configurar o tamanho do papel para impressão de um relatório diretamente em pdf, sem seleção manual da impressora, pois gostaria de reduzir a altura do mesmo para que possa ficar compatível com o arquivo que vai importar esta impressão.
Abaixo o código da impressão onde acredito que deveria acrescentar algum critério para definir os parâmetros:
Private Sub bt_Buscar_Click()
On Error GoTo trataerro
DoCmd.Hourglass True 'Habilita a Ampulheta
DoCmd.OpenForm "sys_ProcessandoBt"
Dim strNomeRel As String, strCaminhoCompleto As String
strNomeRel = "RCP_100_v1_ CatalogoProdutos"
strCaminhoCompleto = "" & strRelPath2 & "\RCP-100 - Catálogo de Produtos para Venda " & Format(Now(), "ddhhmmss") & ".pdf"
Call Load_CatalogoData
DoCmd.OutputTo acOutputReport, strNomeRel, acFormatPDF, strCaminhoCompleto
Application.FollowHyperlink strCaminhoCompleto
DoCmd.Hourglass False 'Desabilita a Ampulheta
sair:
Exit Sub
trataerro:
If Err.Number = 2493 Then
MsgBox " Houve um erro no processo, reinicie o iniciar novamente por favor! ", vbOKOnly, "SieWeb"
ElseIf Err.Number = 3010 Then
MsgBox " Tabelas temporárias não foram deletadas pelo sistema, informe o administrador! ", vbOKOnly, "SieWeb"
Else
MsgBox Err.Description & " Número: " & Err.Number
End If
Resume sair:
End Sub
