[Resolvido]Como transformar um relatório feito em A4 para formulário continuo (210x140mm)

Bom dia...

O título já diz tudo. Depois de pronto, eis que surge essa modificação !

Fiz o relatório para rodar em A4 em impressora laser, legal...roda perfeito.

Porém a pedido, adotaram o formulário continuo ( 210mmx140mm ) para rodar numa matricial Epson Lx300.

Até roda legal,( quando é apenas uma folha ) mas.......quando são 2,3 ou mais folhas a serem impressas a impressora dá o salto entre uma folha e outra deixando a mesma em branco e o cabeçalho da página fica fora de posição.

Para dar o salto entre uma folha e outra, utilizo o seguinte código:

Código:

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Const MaxReg As Integer = 12 'aqui é definido o número de registros para cada página a ser impressa.
If Me.CurrentRecord Mod MaxReg = 0 Then
Me.Section(acDetail).ForceNewPage = 2
Else
Me.Section(acDetail).ForceNewPage = 0
End If
End Sub

Então fica a pergunta.....como acertar esse salto para não deixar a página em branco e acertar o cabeçalho ?

Grato a quem puder me dar uma luz !

Silvio

Vai entrar no mundo sombrio da impressão direta para impressora.

Veja todas as mensagens desse Tópico.
Eu tenho um post nesse tópico que leva a outro.
Veja tudo, assimile, depois conversamos, ok?

[]'s

Noob

Perfect est.....

Vou dar uma estudada !

Desde já ..." penhorado pela vossa fidalguia ".

Li e re-li o mesmo, mas não compreendi onde pode ser encaixada minha duvida.

Entendi o que passou com os colegas no tópico aqui.

Mas não compreendi mesmo o caminho para esse meu problema.

Bom encontrei o seguinte código :

Código:

Type str_DEVMODE
RGB As String * 94
End Type

Type type_DEVMODE
strDeviceName As String * 16
intSpecVersion As Integer
intDriverVersion As Integer
intSize As Integer
intDriverExtra As Integer
lngFields As Long
intOrientation As Integer
intPaperSize As Integer
intPaperLength As Integer
intPaperWidth As Integer
intScale As Integer
intCopies As Integer
intDefaultSource As Integer
intPrintQuality As Integer
intColor As Integer

intDuplex As Integer
intResolution As Integer
intTTOption As Integer
intCollate As Integer
strFormName As String * 16
lngPad As Long
lngBits As Long
lngPW As Long
lngPH As Long
lngDFI As Long
lngDFr As Long
End Type

Sub SelecionarPágPersonalizada(rptNome As String)
Dim SeqDispositivo As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
Dim intResposta As Integer
' Abre o relatório no modo Estrutura.

DoCmd.OpenReport rptNome, acDesign
Set rpt = Reports(rptNome)
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode ' Obtém a estrutura DEVMODE atual.
SeqDispositivo.RGB = strDevModeExtra
LSet DM = SeqDispositivo
If DM.intPaperSize = 256 Then
' Exibe tamanho definido pelo usuário.
intResposta = MsgBox("O atual tamanho de página personalizado é de " _
& DM.intPaperWidth / 100 & " polegadas de largura por " _

& DM.intPaperLength / 100 & " polegadas de comprimento. Você deseja " _
& "alterar as definições?", 4)
Else
' Atualmente não definido pelo usuário.
intResposta = MsgBox("O relatório não tem um tamanho de página personalizado. " _
& "Você deseja definir um?", 4)
End If
If intResposta = 6 Then
' O usuário deseja alterar as definições.
' Inicializa campos.
DM.lngFields = DM.lngFields Or DM.intPaperSize Or DM.intPaperLength _

Or DM.intPaperWidth
DM.intPaperSize = 256   ' Define página personalizada.
' Pergunta o comprimento e a largura.
DM.intPaperLength = InputBox("Por favor digite o comprimento da página " _
& "em polegadas.") * 254
DM.intPaperWidth = InputBox("Por favor digite a largura da página " _
& "em polegadas.") * 254
LSet SeqDispositivo = DM   ' Atualiza propriedade.
Mid(strDevModeExtra, 1, 94) = SeqDispositivo.RGB

rpt.PrtDevMode = strDevModeExtra
End If
End If
End Sub

O exemplo a seguir mostra como alterar a orientação do relatório. Este exemplo alternará a orientação de retrato para paisagem ou de paisagem para retrato, dependendo da orientação atual do relatório.

Sub TrocarOrientação(strNome As String)
Const DM_RETRATO = 1
Const DM_PAISAGEM = 2
Dim SeqDispositivo As str_DEVMODE
Dim DM As type_DEVMODE
Dim strDevModeExtra As String
Dim rpt As Report
DoCmd.OpenReport strNome, acDesign   ' Abre o relatório no modo Estrutura.
Set rpt = Reports(strNome)
If Not IsNull(rpt.PrtDevMode) Then
strDevModeExtra = rpt.PrtDevMode
SeqDispositivo.RGB = strDevModeExtra
LSet DM = SeqDispositivo

DM.lngFields = DM.lngFields Or DM.intOrientation   ' Inicializa campos.
If DM.intOrientation = DM_RETRATO Then
DM.intOrientation = DM_PAISAGEM
Else
DM.intOrientation = DM_RETRATO
End If
LSet SeqDispositivo = DM   ' Atualiza propriedade.
Mid(strDevModeExtra, 1, 94) = SeqDispositivo.RGB
rpt.PrtDevMode = strDevModeExtra
End If
End Sub

Nesse link.

Vou tentar adaptar o mesmo as minhas necessidades, por enquanto, vou deixar aberto esse tópico !

Abraços.

Encontrei a solução para o meu problema.

No site da Microsoft tem as instruções de como fazer um formulário padronizado, nesse Link .

Depois apenas acertar as margens do formulário criado, salvar com um nome amigável.

Vai no report problema e configura o novo formulário !

Simples de tudo e eu me matando aqui.

Valeu Noob...sempre junto !!

Ps.: vou deixar o código na minha mensagem anterior, caso algum colega tenha a necessidade.

Olá a todos, apenas para marcar.
Bom Ano
Abraço

Que bom Silvio.

Ainda bem, que não precisou ir pelo mundo sombrio

Valeu por partilhar

Boa sorte !!


Noob

É verdade.....

Feliz ano novo, Noob e Ahteixeira...sucesso e paz para todos.