IMPRIMIR ENVELOPE PRINT FORM

NILTON.VIANNA 27/05/2011 19:51:34
#375186
Boa noite amigos alguem tem um exemplo de imprimir envelopes
usando print Form

Grato
MARCELO.TREZE 27/05/2011 20:20:15
#375187
vc pretende imprimir uma folha por vez?
NILTON.VIANNA 27/05/2011 23:55:19
#375200
Isso Marcelo
tipo no meu form, configurar a pagina conforme o tamanho do envelope
no modo, Printer.Orientation = vbPRORLandscape
na impressora a laser
MARCELO.TREZE 28/05/2011 14:26:29
#375219
nilton faz o seguinte

use um form com a propriedade mdichild =true dentro de um MDIform, neste mdi form coloque uma toolbar com um botão para imprimir o form.

agora a parte simples que é saber exatamente o tamanho que o form deverá ficar.

primeiro faça o seginte converta o tamanho do envelope que é medido em centímetros para a medida em twips.

cada centimetro possui 567 twips.

então uma folha A4 de 21.0 X 29.7 cm terá as seguintes medidas em twips

21.0 * 567 = 11907
29.7 * 567 = 16840

em milimetros seria tamanho em milimetros X 56.7

210 * 56.7 = 11907
297 * 56.7 = 16840

então seu form terá

Form1.Height = 16840
Form1.Width = 11907

agora basta vc ajustar tudo que precisa dentro dele e pronto, tente adaptar ai

bom depois é só fazer isto

Printer.Orientation = vbPRORLandscape
Printer.PaperSize = vbPRPSEnv10
Form1.PrintForm
Printer.EndDoc

e pronto
Tópico encerrado , respostas não são mais permitidas
Voltar