Leandro Bueno
não registrado
|
|
Postada em 19/04/2005 12:50 hs
Pessoal fiz o seguinte relatório no print e queria saber se vocês sabem como eu faço um preview do relatório antes de ser impresso na tela?
Agradeço desde já.
O relatório é este:
If MsgBox("Inicia a Impressão?", 36, razao) = 7 Then
Exit Sub
End If
Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM originais")
acum = 0
pag = 0
ll = 60
Printer.FontName = "Arial" 'declarar fonte desejada
Printer.Orientation = 1 'onde 1=retrato e 2=paisagem
Printer.PaperSize = 1
Printer.ScaleMode = 5
Printer.FontSize = 8 'tamanho da fonte
On Error Resume Next
var_sql.MoveMin
Do While Not var_sql.EOF
If ll >= 60 Then
Printer.Print 'linha em branco
Printer.Print
pag = pag + 1
Printer.Print Tab(1); " CR DOC 1.0";
Printer.Print Tab(40); "Data :" + CStr(Date);
Printer.Print Tab(170); "Pag. :" + Str(pag)
Printer.Print Tab(1); String(160, "_")
Printer.Print Tab(45); "Controle de Documentos Originais Internos CDOI"
Printer.Print Tab(1); String(220, "_")
Printer.Print Tab(1); " Código";
Printer.Print Tab(12); "Tipo";
Printer.Print Tab(32); "Documento";
Printer.Print Tab(62); "Rev";
Printer.Print Tab(82); "Data";
Printer.Print Tab(102); "Localização";
Printer.Print Tab(1); String(160, "_")
Printer.Print
ll = 8
End If
Printer.Print Tab(3); Format(var_sql!codoriginal, "000");
Printer.Print Tab(12); var_sql!tipodocumento;
Printer.Print Tab(32); var_sql!documento;
Printer.Print Tab(62); var_sql!revisao;
Printer.Print Tab(82); var_sql!Data;
Printer.Print Tab(102); var_sql!localizacao;
var_sql.MoveNext
If ll = 60 Then
Printer.NewPage 'jogar numa próxima pagina
End If
Loop
Printer.Print
Printer.EndDoc
|
|
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 19/04/2005 12:59 hs
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Leandro Bueno
não registrado
|
|
Postada em 19/04/2005 15:50 hs
Não consegui colocar o meu relatório numa picturebox como diz o exemplo do site. Alguém sabe um jeito melhor? |
|
|
|
|
|
Postada em 20/04/2005 02:34 hs
Se utilizas SQL porque não tentas o DataReport???
Eu acho muito mais fácil a sua utilização!!!
--------------------------------------
Screech 
"Programar é arte..."
|
|
|
|
Leandro Bueno
não registrado
|
|
Postada em 20/04/2005 09:58 hs
Pessoal já consegui colocar meu relatorio numa preview no picturebox. Mas agora como eu faço para deixar os dados do relatório que aparecem na picturebox com um tamanho médio, pois a picture esta um pouco grande, e se eu diminuir a picturebox, o relatório que sai nela sai cortado.. eu fiz o seguinte: Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset( |
|
|
|
Leandro Bueno
não registrado
|
|
Postada em 20/04/2005 10:00 hs
O código que eu fiz esta completo: Dim ll As Byte
Dim pag As Byte
Dim acum As Single
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM controledocumentos")
acum = 0
pag = 0
ll = 60
On Error Resume Next
var_sql.MoveMin
Do While Not var_sql.EOF
If ll >= 60 Then
pag = pag + 1
Picture1.Print Tab(1); " CR DOC 1.0";
Picture1.Print Tab(40); "Data :" + CStr(Date);
Picture1.Print Tab(170); "Pag. :" + Str(pag)
Picture1.Print Tab(1); String(220, "_")
Picture1.Print Tab(45); "Controle de Distribuição de Documentos Internos CDDI"
Picture1.Print Tab(1); String(220, "_")
Picture1.Print Tab(1); " Código";
Picture1.Print Tab(12); "Tipo";
Picture1.Print Tab(32); "Documento";
Picture1.Print Tab(52); "Rev";
Picture1.Print Tab(62); "Data";
Picture1.Print Tab(82); "Nº";
Picture1.Print Tab(92); "Setor";
Picture1.Print Tab(122); "Resp";
Picture1.Print Tab(152); "Devolução";
Picture1.Print Tab(1); String(220, "_")
Picture1.Print
ll = 8
End If
Picture1.Print Tab(3); Format(var_sql!coddocumentos, "000");
Picture1.Print Tab(12); var_sql!tipodocumento;
Picture1.Print Tab(32); var_sql!documento;
Picture1.Print Tab(52); var_sql!revisao;
Picture1.Print Tab(62); var_sql!Data;
Picture1.Print Tab(82); var_sql!numero;
Picture1.Print Tab(92); var_sql!setor;
Picture1.Print Tab(122); var_sql!resp;
Picture1.Print Tab(152); var_sql!devolucao;
var_sql.MoveNext
If ll = 60 Then
Printer.NewPage 'jogar numa próxima pagina
End If
Loop
Picture1.Print
Printer.EndDoc |
|
|
|
