scom Posted December 10, 2008 Report Share Posted December 10, 2008 Como faço pra imprimir no centro da folha to usando o PRINT oPrn Quote Link to comment Share on other sites More sharing options...
scom Posted December 10, 2008 Author Report Share Posted December 10, 2008 Como faço pra imprimir no centro da folha to usando o PRINT oPrn Quote Link to comment Share on other sites More sharing options...
vagner Posted December 10, 2008 Report Share Posted December 10, 2008 Olá, 1ªmente, centro Horizontal ou Vertical ? 2ªmente, que formulário ?, A4 ? 3ªmente, qual a fonte que está usando ? que tamanho ? 4ªmente, vc está imprimindo em modo rascunho, vendo que está usando a Print, que é gráfica Acho q com essas resposta podemos lhe dar alguma luz Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
mkyx Posted December 10, 2008 Report Share Posted December 10, 2008 USE ESSE EXEMPLO: MENSAGEM:="AVISO E RECIBO DE FÉRIAS" COMPRIMENTO:=OPRN:GETTEXTWIDTH(MENSAGEM,oFONT) COLUNACERTA:=(LARGURADALETRA*80-COMPRIMENTO)/2 OPRN:Say(linha,COLUNACERTA,MENSAGEM,OFONT) Pompeo Guaratinguetá - SP (12) 9777-9386 E-Mail: mkyx@ig.com.br MSN: mkyx@ig.com.br Skype: pardes.mky www.adentech.com.br www.rmahost.com xH 0.99.50 Hb 8.02 com BCC 55 Quote Link to comment Share on other sites More sharing options...
scom Posted December 11, 2008 Author Report Share Posted December 11, 2008 ola Pompeo tava meio corrido, e o seguinte, o que é LARGURADALETRA? atenciosamente. Quote Link to comment Share on other sites More sharing options...
mkyx Posted December 12, 2008 Report Share Posted December 12, 2008 Veja a seguir, como calculo a largura da letra que é a mesma coisa para determinar o número de colunas por linha, e o número de linhas por página. numerodelinha:=oPrinter:nVertRes()/66 // 66 linhas larguradaletra:=oPrinter:nhorzRes()/80 // 80 colunas Pompeo Guaratinguetá - SP (12) 9777-9386 E-Mail: mkyx@ig.com.br MSN: mkyx@ig.com.br Skype: pardes.mky www.adentech.com.br www.rmahost.com xH 0.99.50 Hb 8.02 com BCC 55 Quote Link to comment Share on other sites More sharing options...
joaosolution Posted December 12, 2008 Report Share Posted December 12, 2008 Faço desta forma: TamanhoLinha := oPrinter:nhorzRes() MENS:="AVISO E RECIBO DE FÉRIAS" COMPRIMENTO:=OPRN:GETTEXTWIDTH(MENSAGEM,oFONT) COLUNACERTA:=(TamanhoLinha/2)-(COMPRIMENTO/2) OPRN:Say(linha,COLUNACERTA,MENSAGEM,OFONT) Att João Bosco Clip 5.3b FW 2.6 FWH 2.6 xHarbour 99.1 WorkShop 4.5 Quote Link to comment Share on other sites More sharing options...
scom Posted December 14, 2008 Author Report Share Posted December 14, 2008 valeu pessoal, fico jóia. muito obrigado 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.