olá
Estou precisando de ajuda com este código de impressão quando eu mando para impressão os arquivos
o meu MSFLEXGRID ELE ESTA SENDO IMPRESSO NA PARTE DE CIMA PARA PAGINA ESTE E OS CODIGOS QUE EU ESTOU USANDO PARA IMPRESÃO
Mensagem = MsgBox("Tem certeza que deseja imprimir o registro atual?", vbYesNo, "Aviso")
If Mensagem = vbYes Then
Dim iTamanho As Integer
Printer.PaintPicture FlexProdutos.Picture, 0, 0
End If
Printer.Print
Printer.Print Spc(83); txtsaida.Text; " "; txtentrada.Text
Printer.Print Tab(3); txtnatureza_da_operacao.Text; Tab(40); txtcfop.Text
Printer.Print
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(29); txtvalor_A.Text; Tab(55); txtvencimento_A.Text; Tab(75); txtvalor_C.Text; Tab(100); txtvencimento_C.Text
Printer.Print Tab(29); txtvalor_B.Text; Tab(55); txtvencimento_B.Text; Tab(75); txtvalor_D.Text; Tab(100); txtvencimento_D.Text
Printer.Print
Printer.Print
Printer.Print Tab(3); txtendereco_de_cobraca.Text
Printer.Print
Printer.Print
' EU GOSTARIA QUE A IMPRESSÃO DO GRID FOSSE ABAIXO DO CAMPO Printer.Print Tab(3); txtendereco_de_cobraca.Text
Printer.Print Tab(LeftMargin + 1); FlexProdutos.TextMatrix(loop2, 1); Tab(LeftMargin + 32); FlexProdutos.TextMatrix(loop2, 2); Tab(LeftMargin + 85 - Len(FlexProdutos.TextMatrix(loop2, 3))); FlexProdutos.TextMatrix(loop2, 3)
Printer.Print
Printer.Print
Printer.Print
Printer.Print Tab(2); TXTBASEDECALCULODOICMS.Text; Tab(30); TXTVALORDOIPI.Text; Tab(58); TXTBASEDECALCULOICMSSUBSTITUICAO.Text; Tab(83); TXTVALORDOICMSSUBSTITUICAO.Text; Tab(115); txt(5).Text
Printer.Print
Printer.Print
Printer.Print Tab(2); TXTVALORDOFRETE.Text; Tab(30); TXTVALORDOSEGURO.Text; Tab(58); TXTOUTRASDESPESASACESSORIAS.Text; Tab(83); TXTVALORTOTALIPI.Text; Tab(115); TXTVALORTOTALDANOTA.Text
