Boa tarde a todos. Uso Windows XP e Access 2003.
Fiz buscas no fórum, mas não encontrei o que precisava. É o seguinte:
Tenho 1 Relatório baseado em 1 Consulta que imprime o registro atual de 1 Formulário.
Na Seção do Cabeçalho do Grupo onde foi Classificado e Agrupado pelo campo "CodRelint" que é o código filtrado para impressão coloquei também os campos "Data", "Assunto", "Origem", "Difusao", "Referencia" e "Anexos", e também o campo "Conclusao" que é tipo memorando, e que por sua vez recebe a digitação maior de textos ou não, os demais campos são informativos com poucos dados.
No Relatório e nessa mesma Seção uso os comandos (Rotina com módulos para justificação de texto de autoria do Lebans):
Option Explicit
Dim Justi1 As New clsJustifyText
Dim Justi2 As New clsJustifyText
Private Sub CabeçalhoDoGrupo0_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordSection(Me, Me.txtTestMemo, PrintCount)
'Call Justi2.fRecordSection(Me, Me.txtTestMemo2, PrintCount)
End Sub
Private Sub Report_Close()
Set Justi1 = Nothing
Set Justi2 = Nothing
End Sub
Private Sub Report_Page()
Dim myBool As Boolean
myBool = Justi1.fJustiDirect(Me)
myBool = Justi2.fJustiDirect(Me)
End Sub
A rotina acima faz a justificação do relatório corretamente, inclusive esta mesma rotina é usada em outros relatórios e também funciona perfeitamente.
No entanto, quando da visualização/impressão ocorreu o seguinte:
PS: Papel tamanho A4 - orientação: Retrato
1) No Cabeçalho da página - ok
2) No Rodapé da página - ok
3) No Cabeçalho (do Grupo) CodRelint
a. Imprime os campos: "Data", "Assunto", "Origem", "Difusao", "Referencia" e "Anexos"
b. O campo memorando "Conclusao" na página 1 imprime parte do texto, na página 2 imprime parte do texto na mesma altura da página 1, na página 3 imprime parte do texto na mesma altura da página 1, e gera a página 4 em branco, embora o texto ainda não tenha acabado.
c. O problema é: Na página 1 fica um espaço de quase 5 cm em branco, abaixo do texto do campo "Conclusao", e assim também nas páginas 2 e 3, e mesmo assim não imprime o texto por completo, o que seria na página 4 que fica totalmente em branco.
d. Esse relatório só visualiza/imprime corretamente se houver apenas 1 página, se tiver mais de 2, ocorre o mesmo problema citados acima nos itens b e c.
Testei retirando a rotina do Lebans, em todos os eventos, no entanto, ao visualizar o relatório, o mesmo aparece na página 1 o Cabeçalho e Rodapé da página e apenas os campos "Data", "Assunto", "Origem", "Difusao", "Referencia" e "Anexos" todos preenchidos, nas 3 páginas seguintes, aparece apenas o texto com o Cabeçalho e Rodapé da Página, e fica em branco o campo memorando "Conclusao", que é onde tem o texto propriamente dito, ou seja, o esse último campo não imprime nada dele.
Porisso peço ajuda aos universitários e mestres para mais esta questão.
Fiz buscas no fórum, mas não encontrei o que precisava. É o seguinte:
Tenho 1 Relatório baseado em 1 Consulta que imprime o registro atual de 1 Formulário.
Na Seção do Cabeçalho do Grupo onde foi Classificado e Agrupado pelo campo "CodRelint" que é o código filtrado para impressão coloquei também os campos "Data", "Assunto", "Origem", "Difusao", "Referencia" e "Anexos", e também o campo "Conclusao" que é tipo memorando, e que por sua vez recebe a digitação maior de textos ou não, os demais campos são informativos com poucos dados.
No Relatório e nessa mesma Seção uso os comandos (Rotina com módulos para justificação de texto de autoria do Lebans):
Option Explicit
Dim Justi1 As New clsJustifyText
Dim Justi2 As New clsJustifyText
Private Sub CabeçalhoDoGrupo0_Print(Cancel As Integer, PrintCount As Integer)
Call Justi1.fRecordSection(Me, Me.txtTestMemo, PrintCount)
'Call Justi2.fRecordSection(Me, Me.txtTestMemo2, PrintCount)
End Sub
Private Sub Report_Close()
Set Justi1 = Nothing
Set Justi2 = Nothing
End Sub
Private Sub Report_Page()
Dim myBool As Boolean
myBool = Justi1.fJustiDirect(Me)
myBool = Justi2.fJustiDirect(Me)
End Sub
A rotina acima faz a justificação do relatório corretamente, inclusive esta mesma rotina é usada em outros relatórios e também funciona perfeitamente.
No entanto, quando da visualização/impressão ocorreu o seguinte:
PS: Papel tamanho A4 - orientação: Retrato
1) No Cabeçalho da página - ok
2) No Rodapé da página - ok
3) No Cabeçalho (do Grupo) CodRelint
a. Imprime os campos: "Data", "Assunto", "Origem", "Difusao", "Referencia" e "Anexos"
b. O campo memorando "Conclusao" na página 1 imprime parte do texto, na página 2 imprime parte do texto na mesma altura da página 1, na página 3 imprime parte do texto na mesma altura da página 1, e gera a página 4 em branco, embora o texto ainda não tenha acabado.
c. O problema é: Na página 1 fica um espaço de quase 5 cm em branco, abaixo do texto do campo "Conclusao", e assim também nas páginas 2 e 3, e mesmo assim não imprime o texto por completo, o que seria na página 4 que fica totalmente em branco.
d. Esse relatório só visualiza/imprime corretamente se houver apenas 1 página, se tiver mais de 2, ocorre o mesmo problema citados acima nos itens b e c.
Testei retirando a rotina do Lebans, em todos os eventos, no entanto, ao visualizar o relatório, o mesmo aparece na página 1 o Cabeçalho e Rodapé da página e apenas os campos "Data", "Assunto", "Origem", "Difusao", "Referencia" e "Anexos" todos preenchidos, nas 3 páginas seguintes, aparece apenas o texto com o Cabeçalho e Rodapé da Página, e fica em branco o campo memorando "Conclusao", que é onde tem o texto propriamente dito, ou seja, o esse último campo não imprime nada dele.
Porisso peço ajuda aos universitários e mestres para mais esta questão.