ola pessoal eu tenho um recibo e preciso imprimir uma borda nele mas estou utilizando o printer para imprimir.. alguem pode me ajudar ?

Tente isto:

 

  Printer.Orientation = 1
  Printer.PrintQuality = -1
  Printer.DrawWidth = 4
  Printer.ScaleMode = 4
  Printer.PaperSize = 9
  Printer.FontName = "Courier New"
  Printer.FontSize = 10
 
  Printer.DrawWidth = 10
 
  Printer.Line (7, 1)-(87, 1)
  Printer.Line (87, 1)-(87, 33)
  Printer.Line (87, 33)-(7, 33)
  Printer.Line (7, 1)-(7, 33)

Jayme

tem como se me explicar detalhadamente a parte line ?

 Printer.Line (7, 1)-(87, 1)

' Imprime a linha de topo nas coordenadas 7,1 até 87,1

 Printer.Line (87, 1)-(87, 33)
' Imprime a linha da direita coordenadas 87,1 até 87,33

 

 Printer.Line (87, 33)-(7, 33)

' Imprime a linha do rodapé  coordenadas 87,33 até 7,33
 Printer.Line (7, 1)-(7, 33)
' Imprime a linha da esquerda nas coordenadas 7,33 até 7,1

 

  Printer.CurrentX = 8  ' posicionei para a próxima linha a partir do topo
  Printer.CurrentY = 2  ' posicionei para a proxima coluna a partir da margem esquerda
 

  isto é vou iniciar a impressão nas cordenadas 8,2

 

  Printer.Print "TESTE"

 

Se ainda tiver dúvida é só teclar

 

Jayme

 

Complementando a reposta do amigo Jayme, recomendaria a você usar o método Line da seguinte forma:

 

Printer.Line (7,1) - (87,33),,b

 

O "b" indica que você deseja criar um retângulo. Assim, com uma única chamada, você pode criar uma borda em torno do seu texto.

 

um abraço,

Sandro