Olá.
Num project, tenho um relatório feito no Print, onde são listados alguns campos de uma tabela Access. Como tudo no Print é feito "na raça" (no código), algum "expert" poderia me dizer como eu intercalo uma linha pontilhada sob cada registro da tabela, no relatório, para separar os registros da tabela, como se faz facilmente no Crystal?
Nº Título Diretor Ator principal
-------------------------------------------------------------------
0488F A doce vida Frederico Fellini Marcello Mastroiani
-------------------------------------------------------------------
0489G A Missão Roland Joffé Jeremy Irons
-------------------------------------------------------------------
Eis o código de impressão:
Dim ll As Byte
Dim pag As Byte
pag = 0
ll = 60
TbCadFilmes.Index = "IndNome" 'Muda o índex para ordenar a lista pelo nome.
Printer.FontName = "Times New Roman" 'declarar fonte desejada
Printer.Orientation = 1 'onde 1=retrato e 2=paisagem
Printer.PaperSize = 1
Printer.ScaleMode = 5
'Printer.FontSize = 10 'tamanho da fonte
On Error Resume Next
Do While Not TbCadFilmes.EOF
If ll >= 60 Then
Printer.Print 'linha em branco
Printer.Print
pag = pag + 1
Printer.FontSize = 13
Printer.FontBold = True
Printer.Print Tab(6); "Relação do acervo de filmes em DVD";
Printer.FontSize = 9
Printer.FontBold = False
Printer.Print
Printer.Print
Printer.Print Tab(30); "Data: " + CStr(Date); Tab(110); "Pág.: " + Str(pag)
'printer.print tab("Pág.: " + Str(pag)
Printer.Print Tab(10); String(110, "_")
Printer.Print
Printer.Print Tab(10); "Listagem de filmes ordenada por título"
Printer.Print Tab(10); String(110, "_")
Printer.Print
Printer.Print Tab(10); "Nº"; 'Cabeçalho da coluna
Printer.Print Tab(20); "Título"; 'Idem
Printer.Print Tab(80); "Diretor"; 'Idem
Printer.Print Tab(110); "Ator principal"; 'Idem
Printer.Print Tab(10); String(110, "_")
Printer.Print
ll = 8
End If
Printer.Print Tab(10); TbCadFilmes!NúmerodaFita; 'Campo do registro
Printer.Print Tab(20); TbCadFilmes!NomedoFilme; 'Idem
Printer.Print Tab(80); TbCadFilmes!Diretor; 'Idem
Printer.Print Tab(110); TbCadFilmes!Atorprincipal; 'Idem
ll = ll + 1
TbCadFilmes.MoveNext
If ll = 60 Then
Printer.Print Tab(12); String(42, "_"); Spc(2); " continua "; Spc(2); String(42, "_")
Printer.NewPage 'jogar numa próxima pagina
End If
Loop
Printer.EndDoc
Obrigado.
