NPI
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 16/03/2009 21:21 hs
Estou tentando imprimir dados de um grid em uma ipressora de cupom mp20 não fiscal mas da o seguinte erro. Open "LPT1" For Output As #2 Print #1, grid(0).columns(3) close #1 End sub **O erro é que imprime o primeiro item da coluna 3,como faz para imprimir toda coluna*** |
|
|
|
|
|
Zoltran
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2009 21:08 hs
NPI, veja se isso ajuda: No Form: Private Sub cmd_ImprimiGrid_Click()
Dim intTamanho As Integer
Printer.Orientation = vbPRORPortrait
PrintTexto 2200, 14, ".......... Aqui vai um Título............... "
intTamanho = MSHFlexGrid1.Width
MSHFlexGrid1.Width = Printer.Width
Printer.PaintPicture MSHFlexGrid1.Picture, 1000, 400
Printer.EndDoc
MSHFlexGrid1.Width = intTamanho
MsgBox (" Relatório enviado para a Impressora Padrão. "), vbInformation, "Título"
End Sub No Módulo: Public Sub PrintTexto(X, Y, Texto)
Printer.CurrentX = X - 5
Printer.CurrentY = Y - 5
Printer.Print Texto
End Sub |
|
|
|
Álvaro
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/03/2009 15:21 hs
NPI o que você tem que fazer é criar um loop
dim Coluna as integer
For Coluna = 1 To Grid.Rows - 1 'pega o total de linhas do grid
Print #1, grid(Coluna).columns(3)
Next
close #1
Assim você imprime a coluna 3 do grid todo, depois é só fazer uma adaptação para o que você precisa
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
