Valdir Posted September 12, 2008 Report Share Posted September 12, 2008 Olá pessoal.. Seguinte: Existe alguma forma de reconfigurar em Run Time o tamanho da página na TPrinter ? Já tentei SetSize(Largura, Altura) e não altera nada... As únicas alterações possÃveis de se fazer é através do comando SetPage() conforme as definições abaixo : // Defines for the oPrn:SetPage(nPage) method (The printer MUST support it) #define DMPAPER_LETTER 1 // Letter 8 1/2 x 11 in #define DMPAPER_LETTERSMALL 2 // Letter Small 8 1/2 x 11 in #define DMPAPER_TABLOID 3 // Tabloid 11 x 17 in #define DMPAPER_LEDGER 4 // Ledger 17 x 11 in #define DMPAPER_LEGAL 5 // Legal 8 1/2 x 14 in #define DMPAPER_STATEMENT 6 // Statement 5 1/2 x 8 1/2 in #define DMPAPER_EXECUTIVE 7 // Executive 7 1/4 x 10 1/2 in #define DMPAPER_A3 8 // A3 297 x 420 mm #define DMPAPER_A4 9 // A4 210 x 297 mm #define DMPAPER_A4SMALL 10 // A4 Small 210 x 297 mm #define DMPAPER_A5 11 // A5 148 x 210 mm #define DMPAPER_B4 12 // B4 250 x 354 #define DMPAPER_B5 13 // B5 182 x 257 mm #define DMPAPER_FOLIO 14 // Folio 8 1/2 x 13 in #define DMPAPER_QUARTO 15 // Quarto 215 x 275 mm #define DMPAPER_10X14 16 // 10x14 in #define DMPAPER_11X17 17 // 11x17 in #define DMPAPER_NOTE 18 // Note 8 1/2 x 11 in #define DMPAPER_ENV_9 19 // Envelope #9 3 7/8 x 8 7/8 #define DMPAPER_ENV_10 20 // Envelope #10 4 1/8 x 9 1/2 #define DMPAPER_ENV_11 21 // Envelope #11 4 1/2 x 10 3/8 #define DMPAPER_ENV_12 22 // Envelope #12 4 \276 x 11 #define DMPAPER_ENV_14 23 // Envelope #14 5 x 11 1/2 #define DMPAPER_CSHEET 24 // C size sheet #define DMPAPER_DSHEET 25 // D size sheet #define DMPAPER_ESHEET 26 // E size sheet #define DMPAPER_ENV_DL 27 // Envelope DL 110 x 220mm #define DMPAPER_ENV_C5 28 // Envelope C5 162 x 229 mm #define DMPAPER_ENV_C3 29 // Envelope C3 324 x 458 mm #define DMPAPER_ENV_C4 30 // Envelope C4 229 x 324 mm #define DMPAPER_ENV_C6 31 // Envelope C6 114 x 162 mm #define DMPAPER_ENV_C65 32 // Envelope C65 114 x 229 mm #define DMPAPER_ENV_B4 33 // Envelope B4 250 x 353 mm #define DMPAPER_ENV_B5 34 // Envelope B5 176 x 250 mm #define DMPAPER_ENV_B6 35 // Envelope B6 176 x 125 mm #define DMPAPER_ENV_ITALY 36 // Envelope 110 x 230 mm #define DMPAPER_ENV_MONARCH 37 // Envelope Monarch 3.875 x 7.5 in #define DMPAPER_ENV_PERSONAL 38 // 6 3/4 Envelope 3 5/8 x 6 1/2 in #define DMPAPER_FANFOLD_US 39 // US Std Fanfold 14 7/8 x 11 in #define DMPAPER_FANFOLD_STD_GERMAN 40 // German Std Fanfold 8 1/2 x 12 in #define DMPAPER_FANFOLD_LGL_GERMAN 41 // German Legal Fanfold 8 1/2 x 13 in O Problema é que nem sempre existem opções de tamanho para o que necessitamos. Será que não é possÃvel alterar essas definições acima ? Um abraço Valdir - Jundiaà - S.P. Editado por - valdir on 14/09/2008 11:38:35 Quote Link to comment Share on other sites More sharing options...
Valdir Posted September 12, 2008 Author Report Share Posted September 12, 2008 Olá pessoal.. Seguinte: Existe alguma forma de reconfigurar em Run Time o tamanho da página na TPrinter ? Já tentei SetSize(Largura, Altura) e não altera nada... As únicas alterações possÃveis de se fazer é através do comando SetPage() conforme as definições abaixo : // Defines for the oPrn:SetPage(nPage) method (The printer MUST support it) #define DMPAPER_LETTER 1 // Letter 8 1/2 x 11 in #define DMPAPER_LETTERSMALL 2 // Letter Small 8 1/2 x 11 in #define DMPAPER_TABLOID 3 // Tabloid 11 x 17 in #define DMPAPER_LEDGER 4 // Ledger 17 x 11 in #define DMPAPER_LEGAL 5 // Legal 8 1/2 x 14 in #define DMPAPER_STATEMENT 6 // Statement 5 1/2 x 8 1/2 in #define DMPAPER_EXECUTIVE 7 // Executive 7 1/4 x 10 1/2 in #define DMPAPER_A3 8 // A3 297 x 420 mm #define DMPAPER_A4 9 // A4 210 x 297 mm #define DMPAPER_A4SMALL 10 // A4 Small 210 x 297 mm #define DMPAPER_A5 11 // A5 148 x 210 mm #define DMPAPER_B4 12 // B4 250 x 354 #define DMPAPER_B5 13 // B5 182 x 257 mm #define DMPAPER_FOLIO 14 // Folio 8 1/2 x 13 in #define DMPAPER_QUARTO 15 // Quarto 215 x 275 mm #define DMPAPER_10X14 16 // 10x14 in #define DMPAPER_11X17 17 // 11x17 in #define DMPAPER_NOTE 18 // Note 8 1/2 x 11 in #define DMPAPER_ENV_9 19 // Envelope #9 3 7/8 x 8 7/8 #define DMPAPER_ENV_10 20 // Envelope #10 4 1/8 x 9 1/2 #define DMPAPER_ENV_11 21 // Envelope #11 4 1/2 x 10 3/8 #define DMPAPER_ENV_12 22 // Envelope #12 4 \276 x 11 #define DMPAPER_ENV_14 23 // Envelope #14 5 x 11 1/2 #define DMPAPER_CSHEET 24 // C size sheet #define DMPAPER_DSHEET 25 // D size sheet #define DMPAPER_ESHEET 26 // E size sheet #define DMPAPER_ENV_DL 27 // Envelope DL 110 x 220mm #define DMPAPER_ENV_C5 28 // Envelope C5 162 x 229 mm #define DMPAPER_ENV_C3 29 // Envelope C3 324 x 458 mm #define DMPAPER_ENV_C4 30 // Envelope C4 229 x 324 mm #define DMPAPER_ENV_C6 31 // Envelope C6 114 x 162 mm #define DMPAPER_ENV_C65 32 // Envelope C65 114 x 229 mm #define DMPAPER_ENV_B4 33 // Envelope B4 250 x 353 mm #define DMPAPER_ENV_B5 34 // Envelope B5 176 x 250 mm #define DMPAPER_ENV_B6 35 // Envelope B6 176 x 125 mm #define DMPAPER_ENV_ITALY 36 // Envelope 110 x 230 mm #define DMPAPER_ENV_MONARCH 37 // Envelope Monarch 3.875 x 7.5 in #define DMPAPER_ENV_PERSONAL 38 // 6 3/4 Envelope 3 5/8 x 6 1/2 in #define DMPAPER_FANFOLD_US 39 // US Std Fanfold 14 7/8 x 11 in #define DMPAPER_FANFOLD_STD_GERMAN 40 // German Std Fanfold 8 1/2 x 12 in #define DMPAPER_FANFOLD_LGL_GERMAN 41 // German Legal Fanfold 8 1/2 x 13 in O Problema é que nem sempre existem opções de tamanho para o que necessitamos. Será que não é possÃvel alterar essas definições acima ? Um abraço Valdir - Jundiaà - S.P. Editado por - valdir on 14/09/2008 11:38:35 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 12, 2008 Report Share Posted September 12, 2008 http://fivetechsoft.com/forums/viewtopic.php?t=2044&highlight=tamano http://msdn.microsoft.com/en-us/library/ms535771.aspx João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 12/09/2008 13:18:33 Quote Link to comment Share on other sites More sharing options...
helio1361303486 Posted September 12, 2008 Report Share Posted September 12, 2008 Valdir, realmente setando para A4 não dá o tamanho real de um papel A4, fica cortando. então tive que redefinir assim e deu certo. oPrn:SetSize(2100,3100) se colocar 2970 que é o comprimento do papel ele corta. então aumentei para 3100 aà belezinha. Hélio xHarbour/WS/PellesC Quote Link to comment Share on other sites More sharing options...
ZECA Posted September 12, 2008 Report Share Posted September 12, 2008 citação:Valdir, realmente setando para A4 não dá o tamanho real de um papel A4, fica cortando. então tive que redefinir assim e deu certo. oPrn:SetSize(2100,3100) se colocar 2970 que é o comprimento do papel ele corta. então aumentei para 3100 aà belezinha. Hélio xHarbour/WS/PellesC id=quote>id=quote>Boa tarde VALDIR !! Eu tive este mesmo problema trabalhando com o PAGESCRIPT(que é semelhante a classe tprinter, com algumas melhoras) e descobri que o sistema operacional influi no tamanho do papel; pelo menos para para o pagescript. Eu sei porque trabalhava com windows ME, mudei para XP e tive que ir "achando" o tamanho certo para o papel. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Valdir Posted September 13, 2008 Author Report Share Posted September 13, 2008 Aos amigos... Kapi, Hélio e Zeca ; Realmente, ajustando e alterando os valores conforme as minhas necessidades, acabei definindo o tamanho correto dos meus formulários... Obrigado... VALEUUUUUUUUUU....... Um abraço Valdir - Jundiaà - S.P. Quote Link to comment Share on other sites More sharing options...
Valdir Posted September 14, 2008 Author Report Share Posted September 14, 2008 Pessoal... Embora havia confirmado as soluções dos amigos acima, percebi que elas funcionam somente se forem utilizadas numa impressora local. Quando tentamos imprimir através de uma impressora na rede essas configurações perdem o seu valor, voltando ao status originais, ou seja : Tanto a SetPage() quanto que o SetSize(), não funcionam... Então como diria um grande amigo... "Lá pregunta ?" Existe uma outra solução ? Um abraço Valdir - Jundiaà - S.P. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 15, 2008 Report Share Posted September 15, 2008 http://www.fivewin.com.br/exibedicas.asp?id=76 João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Theotokos Posted November 5, 2008 Report Share Posted November 5, 2008 citação: citação:Valdir, realmente setando para A4 não dá o tamanho real de um papel A4, fica cortando. então tive que redefinir assim e deu certo. oPrn:SetSize(2100,3100) se colocar 2970 que é o comprimento do papel ele corta. então aumentei para 3100 aà belezinha. Hélio xHarbour/WS/PellesC id=quote>id=quote>Boa tarde VALDIR !! Eu tive este mesmo problema trabalhando com o PAGESCRIPT(que é semelhante a classe tprinter, com algumas melhoras) e descobri que o sistema operacional influi no tamanho do papel; pelo menos para para o pagescript. Eu sei porque trabalhava com windows ME, mudei para XP e tive que ir "achando" o tamanho certo para o papel. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP id=quote>id=quote>Olá, ZECA Voce trabalha com a PageScript no xHarbour/FiveWin ? Se Sim como voce vez ? Em Cristo!!!! Rone O. Coura ************************ xHarbour + BCC55 + FiveWin + xDevStudio Quote Link to comment Share on other sites More sharing options...
João Cezar Posted February 18, 2009 Report Share Posted February 18, 2009 Olá Estou precisando imprimir com a tprinter no formulario continuo picotado ao meio mas não estou conseguindo vcs teriam alguma sugestão ? João Cezar - Goiânia/GO. joao.cezar@cultura.com.br Fone: (62) 3256-4715 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2009 Report Share Posted February 18, 2009 citação:Olá Estou precisando imprimir com a tprinter no formulario continuo picotado ao meio mas não estou conseguindo vcs teriam alguma sugestão ? João Cezar - Goiânia/GO. joao.cezar@cultura.com.br Fone: (62) 3256-4715 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>PICOTADO AO MEIO??? TDOSPRN.PRG OU TALVEZ CRIANDO DOIS FORMS COM A TPRINTER EM UM LOOPING QUE IRIA DA LINHA X A LINHA Y... PARARIA E CONTINUARIA OUTRO FORM, É UMA IDEIA. HUUMMMM... HEHEHEHE. Abraço.s João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 18/02/2009 16:28:30 Quote Link to comment Share on other sites More sharing options...
João Cezar Posted February 18, 2009 Report Share Posted February 18, 2009 Consegui achar a solução: oPrn:Setsize(215*10,140*10) // Papel A4 picotado no meio e não oPrn:Setsize(240*10,280*10 João Cezar - Goiânia/GO. joao.cezar@cultura.com.br Fone: (62) 3256-4715 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe 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.