DIMENSIONAR NO PRINT
Ae pessoal eu tenho um problema com redimencionamento,esta imprimindo tudo sem redimensionamento, num estou conseguindo redimensionar a foto junto com o texto , ta assim um pedaço do print
Printer.Print
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
'Printer.EndDoc 'Envia o documento para a impressora
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/aa"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(55); "APARTAMENTOS --------------------------------"
'----------------------------------------------------------
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text
ta saindo assim a foto pequena no canto e sem dimensionamento e os dados nop meio , sera q num tem como deixa os dados no canto e a foto depois q acabar os dados em baixo, algume sabe? valew
********* codigo do proiprietario
* * codigo do fhgdfh
* * dhdgsj ghfhfghf
********* hhgfdhfhg
Printer.Print
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
'Printer.EndDoc 'Envia o documento para a impressora
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/aa"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(55); "APARTAMENTOS --------------------------------"
'----------------------------------------------------------
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text
ta saindo assim a foto pequena no canto e sem dimensionamento e os dados nop meio , sera q num tem como deixa os dados no canto e a foto depois q acabar os dados em baixo, algume sabe? valew
********* codigo do proiprietario
* * codigo do fhgdfh
* * dhdgsj ghfhfghf
********* hhgfdhfhg
Meu codigo inteiro esta ssim
Dim PaginaInicial, Paginafinal, numerodecopias, i
CommonDialog1.CancelError = True
Dim sql As String
On Error GoTo imperro
'mostra a janela para impressora
CommonDialog1.ShowPrinter
'Captura os valores definidos pelo usuário na janela
PaginaInicial = CommonDialog1.FromPage
Paginafinal = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies
For i = 1 To numerodecopias
Printer.Print
'------------------------------------------------------------------
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
'Printer.EndDoc 'Envia o documento para a impressora
'-----------------------------------------------------------------
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/aa"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(55); "APARTAMENTOS --------------------------------"
'----------------------------------------------------------
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text
Printer.Print Tab(55); "nome "; Tab(55); txtname.Text
Printer.Print Tab(55); "Bairro "; Tab(55); txtbairro.Text
Printer.Print Tab(55); "Dormitorios "; Tab(55); txtdormitorio.Text
Printer.Print Tab(55); "Sala "; Tab(55); txtsala.Text
Printer.Print Tab(55); "Cozinha "; Tab(55); txtcozi.Text
Printer.Print Tab(55); "n_Ap "; Tab(55); txtn.Text
Printer.Print Tab(55); "Garagem "; Tab(55); txtgaragem.Text
Printer.Print Tab(55); "AreaConstruida "; Tab(55); txtmetra.Text
Printer.Print Tab(55); "AreaUtil "; Tab(55); txtutil.Text
Printer.Print Tab(55); "observacao "; Tab(55); txtobsdorm.Text
Printer.Print Tab(55); "Valor "; Tab(55); txtvalor.Text
Printer.EndDoc
MsgBox "Os dados foram enviados para a impressora ... ! "
Exit Sub
imperro:
MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!"
Printer.KillDoc
Exit Sub
Next
Exit Sub
Exit Sub
'Set rsFotos = Nothing
Dim PaginaInicial, Paginafinal, numerodecopias, i
CommonDialog1.CancelError = True
Dim sql As String
On Error GoTo imperro
'mostra a janela para impressora
CommonDialog1.ShowPrinter
'Captura os valores definidos pelo usuário na janela
PaginaInicial = CommonDialog1.FromPage
Paginafinal = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies
For i = 1 To numerodecopias
Printer.Print
'------------------------------------------------------------------
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
'Printer.EndDoc 'Envia o documento para a impressora
'-----------------------------------------------------------------
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/aa"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(55); "APARTAMENTOS --------------------------------"
'----------------------------------------------------------
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text
Printer.Print Tab(55); "nome "; Tab(55); txtname.Text
Printer.Print Tab(55); "Bairro "; Tab(55); txtbairro.Text
Printer.Print Tab(55); "Dormitorios "; Tab(55); txtdormitorio.Text
Printer.Print Tab(55); "Sala "; Tab(55); txtsala.Text
Printer.Print Tab(55); "Cozinha "; Tab(55); txtcozi.Text
Printer.Print Tab(55); "n_Ap "; Tab(55); txtn.Text
Printer.Print Tab(55); "Garagem "; Tab(55); txtgaragem.Text
Printer.Print Tab(55); "AreaConstruida "; Tab(55); txtmetra.Text
Printer.Print Tab(55); "AreaUtil "; Tab(55); txtutil.Text
Printer.Print Tab(55); "observacao "; Tab(55); txtobsdorm.Text
Printer.Print Tab(55); "Valor "; Tab(55); txtvalor.Text
Printer.EndDoc
MsgBox "Os dados foram enviados para a impressora ... ! "
Exit Sub
imperro:
MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!"
Printer.KillDoc
Exit Sub
Next
Exit Sub
Exit Sub
'Set rsFotos = Nothing
Caro Guto... Vc pode fazer isso pelo word como fizemos ontem.. é só vc dar o comando no vb para imprimir no word...
Se quiser passo para vc...
Até mais...
Se quiser passo para vc...
Até mais...
concerteza irmao so gostaria de aprender fazendo no print ta ligado, parece q ta imprimindo mais rapido quando jogo diretamente esses dados na impressora , akele codigo q tu passo ta pegano geral memo , so q ta demorando pra caraca no computer do cliente,
E num esta indo dimensionada, ta ligado, elas estao caindo no word do mesmo tamanho quando se scaneia, como eu aconselhei que na hora de escaniar a foto se encaniasse em um tamanho razoaval , pq no meu sistema tem um controle de imagem , esta caindo no word com um tamnho grande , vc sabe como especificar o tamnho nakele codilo la q tu me passou valeu trovam
E num esta indo dimensionada, ta ligado, elas estao caindo no word do mesmo tamanho quando se scaneia, como eu aconselhei que na hora de escaniar a foto se encaniasse em um tamanho razoaval , pq no meu sistema tem um controle de imagem , esta caindo no word com um tamnho grande , vc sabe como especificar o tamnho nakele codilo la q tu me passou valeu trovam
é bom aprender e aceitar novos desafios...
em relação a dimensionar a figura no word fica meio dificil...
mas tem outra opção vc gera todo o documento no word sem visualiza-lo, salva o arquivo e manda imprimir, acho q fica + rapido...
Até mais...
em relação a dimensionar a figura no word fica meio dificil...
mas tem outra opção vc gera todo o documento no word sem visualiza-lo, salva o arquivo e manda imprimir, acho q fica + rapido...
Até mais...
Como assim aprender a aceitar novos desafios?
Levantar de manha é o maior desafio irmao,
era por isso ta ligado trovam q eu queria fazer isso no print ta ligado, poq ser q no print da pra dimensionar, valew
Levantar de manha é o maior desafio irmao,
era por isso ta ligado trovam q eu queria fazer isso no print ta ligado, poq ser q no print da pra dimensionar, valew
eu falei novos desafios pq o q vc esta querendo fazer é um novo desafio em seu sistema certo? pq se vc ja soubesse à ± teria postado aqui... à ± me leve a mal so quis dar uma palavra de animo...
Cara quando vc manda direto na porta da impressora vc à ± cosegue fazer nada, o objeto vai da mesma forma q estiver na tela, agora vc pode tentar trata-lo antes de envia-lo para a porta da impressora...
Até mais....
Cara quando vc manda direto na porta da impressora vc à ± cosegue fazer nada, o objeto vai da mesma forma q estiver na tela, agora vc pode tentar trata-lo antes de envia-lo para a porta da impressora...
Até mais....
Eu num num levei mal cara, aki num ten nada pessoal , é so estudo , de boa , ta me ajudano , numquis ser ignorante ......mas tamen é q o texto no print fica mais organizado ta ligado , e sem falar que ontem eu aprendoi essa fita , um modo de fazer isso , eu to tentando faze a mema coisa com o active report, e to tentano aprende a faze isso no print , ta ligado oq eu to tentano , aprender um pouco mais sobre o mesmo assunto, so que de angulos diferentes ta ligado , sao caminhos diferentes q vao levar pro mesmo fim , mas........ sao caminhos diferentes
mas ai oq vc diz en trata-lo antes de para envialo para a porta da impressora, falow
mas ai oq vc diz en trata-lo antes de para envialo para a porta da impressora, falow
é Fácil
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
não use picFoto.Width, picFoto.Height mas use o tamanho que queres que a figura tenha, tente:
Printer.PaintPicture imgFoto.Item(0), 0, 0, 500, 500
Não li o resto de seu fonte acho desnecessário. Mas aqui
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text
tens um erro talvez queira isso:
Printer.Print Tab(55); "Codigo "; txtcod.Text
ou isso
Printer.Print Tab(55); "Codigo "; Tab(70); txtcod.Text
ou ....
Printer.PaintPicture imgFoto.Item(0), 0, 0, picFoto.Width, picFoto.Height
não use picFoto.Width, picFoto.Height mas use o tamanho que queres que a figura tenha, tente:
Printer.PaintPicture imgFoto.Item(0), 0, 0, 500, 500
Não li o resto de seu fonte acho desnecessário. Mas aqui
Printer.Print Tab(55); "Codigo "; Tab(55); txtcod.Text
tens um erro talvez queira isso:
Printer.Print Tab(55); "Codigo "; txtcod.Text
ou isso
Printer.Print Tab(55); "Codigo "; Tab(70); txtcod.Text
ou ....
OBRIGADO POR POSTAR , AE FICOU DO MESMO JEITO VEIO , O REDIMENSIONAMENTO ATEQ TA BLZ , MAS O LAYOUT NUM MUDOU
Tópico encerrado , respostas não são mais permitidas