sig_gilberto Posted August 6, 2010 Report Share Posted August 6, 2010 Olá Desenvolvedores, bom dia! Estou gerando uma relatório onde vou depois imprimir em A4 numa impressora LaserJet... Onde e como eu devo passar o parâmetro para "setar/configurar" as margens da impressão ? Quando imprimo, a não inicia no canto esquerda da folha. como forçar isso ? Olhem só : Function Print_Funcio() DBSelectArea("TB_FUNCI") OrdSEtFocus(nRBX,"TB_FUNCI") DBGoTop() If nRBX=1 vDsOrdem="Ordenado por CÓDIGO" ElseIf nRBX=2 vDsOrdem="Ordenado por NOME" ElseIf nRBX=3 vDsOrdem="Ordenado por ENDEREÇAMENTO" EndIf DEFINE FONT oFTPrint0 NAME "Arial" SIZE 03,04 Report oReport CAPTION WSis ; TITLE "RELAÇÃO DE FUNCIONÃRIOS" ; HEADER WCli ; FOOTER "Página nº "+StrZero(oReport:nPage,3,0)+; " Gerada por : "+Alltrim(vNmUsuar)+" em "+Dtoc(Date())+" à s "+Time()+"hs. ("+; vDsOrdem+")" ; TO PREVIEW Font oFTPrint0 Column Title "Código" Data CodFunci Size 06 oFTPrint0 Column Title "Nome" Data NomFunci Size 30 oFTPrint1 Column Title "Função" Data FunFunci oFTPrint1 Column Title "Admissão" Data Dtoc(DatAdmis) oFTPrint1 Column Title "CTPS/Série" Data Alltrim(numCTPS)+"/"+Alltrim(numSERI) oFTPrint1 Column Title "CPNJ/CPF" Data numCNPJ oFTPrint1 Column Title "IEST/RG" Data numIEST oFTPrint1 Column Title "PIS" Data numPIS oFTPrint1 End Report // oReport:CellView() Activate Report oReport Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 6, 2010 Author Report Share Posted August 6, 2010 Olá Desenvolvedores, bom dia! Estou gerando uma relatório onde vou depois imprimir em A4 numa impressora LaserJet... Onde e como eu devo passar o parâmetro para "setar/configurar" as margens da impressão ? Quando imprimo, a não inicia no canto esquerda da folha. como forçar isso ? Olhem só : Function Print_Funcio() DBSelectArea("TB_FUNCI") OrdSEtFocus(nRBX,"TB_FUNCI") DBGoTop() If nRBX=1 vDsOrdem="Ordenado por CÓDIGO" ElseIf nRBX=2 vDsOrdem="Ordenado por NOME" ElseIf nRBX=3 vDsOrdem="Ordenado por ENDEREÇAMENTO" EndIf DEFINE FONT oFTPrint0 NAME "Arial" SIZE 03,04 Report oReport CAPTION WSis ; TITLE "RELAÇÃO DE FUNCIONÃRIOS" ; HEADER WCli ; FOOTER "Página nº "+StrZero(oReport:nPage,3,0)+; " Gerada por : "+Alltrim(vNmUsuar)+" em "+Dtoc(Date())+" à s "+Time()+"hs. ("+; vDsOrdem+")" ; TO PREVIEW Font oFTPrint0 Column Title "Código" Data CodFunci Size 06 oFTPrint0 Column Title "Nome" Data NomFunci Size 30 oFTPrint1 Column Title "Função" Data FunFunci oFTPrint1 Column Title "Admissão" Data Dtoc(DatAdmis) oFTPrint1 Column Title "CTPS/Série" Data Alltrim(numCTPS)+"/"+Alltrim(numSERI) oFTPrint1 Column Title "CPNJ/CPF" Data numCNPJ oFTPrint1 Column Title "IEST/RG" Data numIEST oFTPrint1 Column Title "PIS" Data numPIS oFTPrint1 End Report // oReport:CellView() Activate Report oReport Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 6, 2010 Report Share Posted August 6, 2010 veja \samples\report Tem todos os exemplos que voce precisa pra desenvolver usando REPORT. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 6, 2010 Author Report Share Posted August 6, 2010 Kapiaba, primeiramente obrigado pelo retorno. Lá nos SAMPLE, eu não achei, mas.... Achei num manual que tenho aqui datado de 22/11/2005 onde mostra detalhadamente todas as classes. É só colocar o AT e o número da coluna que deseja iniciar a impressão que as outras colunas serão automaticamente "empurradas" para a direita. Column Title "Código" AT 15 Data CodFunci Size 06 oFTPrint0 ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
PauloPJ Posted August 6, 2010 Report Share Posted August 6, 2010 " PUBLIC Xprn_fim := " Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 9, 2010 Author Report Share Posted August 9, 2010 Olá Desenvolvedores, Bom Dia! Paulo, obrigado pelo retorno. Vou fazer os teste e retorno com meu parecer..VLW!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.