PRINTER - AREA DE IMPRESSAO
não sei mexer quase nada de printer,
queria saber o seguinte
eu defino a area de impressão
printer.papersize = 256
printer.widht = valor
print.height = valor
printer.print "Quando terminar o tamanho da area de impressao pule para a proxima linha"
daà eu quero que quando o texto cheque até o fim da area de impressao ele pule automaticamente para a procima linha.
simplesmente isso.
agradeço desde já
cleverton.on@pop.com.br
queria saber o seguinte
eu defino a area de impressão
printer.papersize = 256
printer.widht = valor
print.height = valor
printer.print "Quando terminar o tamanho da area de impressao pule para a proxima linha"
daà eu quero que quando o texto cheque até o fim da area de impressao ele pule automaticamente para a procima linha.
simplesmente isso.
agradeço desde já
cleverton.on@pop.com.br
Tente
Tente este código
Sub ImprimirTexto(Texto as string)
Dim i as integer
Dim n as integer
Dim j as integer
n = printer.textwidth(Texto)/printer.width
j = len(Texto)/n
for i = 0 to n-1
printer.print mid$(Texto,(i *j)+1, j)
next
end sub
Tente este código
Sub ImprimirTexto(Texto as string)
Dim i as integer
Dim n as integer
Dim j as integer
n = printer.textwidth(Texto)/printer.width
j = len(Texto)/n
for i = 0 to n-1
printer.print mid$(Texto,(i *j)+1, j)
next
end sub
Tópico encerrado , respostas não são mais permitidas