PRINTDOCUMENT
Estou iniciando no VB.NET e apanhando muito com impressão, não estou conseguindo.
Cheguei ao formulário com um DataGridView com várias linhas que formam uma nota. Fora do dgv tem o nome fornecedor (textbox), o número da nota (label) e total.
Ficarei muito grato se alguém me der uma luz para imprimir isto direto para a impressora, sem visualização em tela e melhor ainda se não tiver que passar pelo PrintDialog
Cheguei ao formulário com um DataGridView com várias linhas que formam uma nota. Fora do dgv tem o nome fornecedor (textbox), o número da nota (label) e total.
Ficarei muito grato se alguém me der uma luz para imprimir isto direto para a impressora, sem visualização em tela e melhor ainda se não tiver que passar pelo PrintDialog
Amigo, talvez isso resolva seu problema.
FileOpen(1,GetEnvironmentVariable([Ô]TEMP[Ô]) & [Ô]\arquivo.txt[Ô], OpenMode.Output) [ô] Cria um arquivo na pasta temp.
PrintLine(1) [ô] linha em branco
PrintLine(1, TAB(5), F_SemAcento(razaosocial)) [ô]preenche o arquivo com os dados, linha por linha
PrintLine(1, TAB(5), F_SemAcento(endereco))
PrintLine(1, TAB(5), F_SemAcento(cidade) + [Ô] - [Ô] + UF + [Ô] - [Ô] + CEP)
PrintLine(1, TAB(5), logradouro + [Ô] - [Ô] + cid + [Ô]/[Ô] + estado + [Ô] - [Ô] + endcep)
PrintLine(1, TAB(5), cpf, SPC(10), IE_RG)
PrintLine(1) [ô] Print blank line to file.
PrintLine(1) [ô] Print blank line to file.
FileClose(1) [ô] fecha o arquivo.
FileCopy(GetEnvironmentVariable([Ô]TEMP[Ô]) & [Ô]\arquivo.txt[Ô], [Ô]porta_da_impressora[Ô]) [ô]joga o arquivo para a porta de impressao.
Inté
FileOpen(1,GetEnvironmentVariable([Ô]TEMP[Ô]) & [Ô]\arquivo.txt[Ô], OpenMode.Output) [ô] Cria um arquivo na pasta temp.
PrintLine(1) [ô] linha em branco
PrintLine(1, TAB(5), F_SemAcento(razaosocial)) [ô]preenche o arquivo com os dados, linha por linha
PrintLine(1, TAB(5), F_SemAcento(endereco))
PrintLine(1, TAB(5), F_SemAcento(cidade) + [Ô] - [Ô] + UF + [Ô] - [Ô] + CEP)
PrintLine(1, TAB(5), logradouro + [Ô] - [Ô] + cid + [Ô]/[Ô] + estado + [Ô] - [Ô] + endcep)
PrintLine(1, TAB(5), cpf, SPC(10), IE_RG)
PrintLine(1) [ô] Print blank line to file.
PrintLine(1) [ô] Print blank line to file.
FileClose(1) [ô] fecha o arquivo.
FileCopy(GetEnvironmentVariable([Ô]TEMP[Ô]) & [Ô]\arquivo.txt[Ô], [Ô]porta_da_impressora[Ô]) [ô]joga o arquivo para a porta de impressao.
Inté
Tópico encerrado , respostas não são mais permitidas