Imprimir em matricial no win2000...
Boa Tarde pessoal!
bom tinha lançado uma duvida esses tempo atras de como imprimir numa impresora matricial pelo sistema, nao tive sucesso, mais ainda assim consegi uma solução funcionou qe é uma beleza mais quando fui testar no win2000 quem diz que imprimi ela apenas fas barrulho de quem como esta imprimindo mais nao sai nada
ai vai o codigo que peguei aqui mesmo
bom eu creio que o contra tempo esta na parte onde ta ali LPT1
se algueim souber a solução á e mais uma coisa como faso para imprimir em negrito italico sublinhado .... etc ???
se algueim souber irá me ajudar muitu
Obrigado desde já[size=7:165cd8ab45][/size:165cd8ab45][/code]
bom tinha lançado uma duvida esses tempo atras de como imprimir numa impresora matricial pelo sistema, nao tive sucesso, mais ainda assim consegi uma solução funcionou qe é uma beleza mais quando fui testar no win2000 quem diz que imprimi ela apenas fas barrulho de quem como esta imprimindo mais nao sai nada
ai vai o codigo que peguei aqui mesmo
procedure TForm1.FormShow(Sender: TObject); var I : Integer; begin ComboBox1.Items.Clear; For I:= 1 to Printer.Printers.Count do Begin if Pos(´LPT´, printer.Printers.Strings[I-1]) > 0Then ComboBox1.Items.Add(´LPT1´) Else if Pos(´\\´, printer.Printers.Strings[I-1]) > 0 Then ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1], Pos(´\\´, printer.Printers.Strings[I-1]), length(printer.Printers.Strings[I-1]) - Pos(´\\´, printer.Printers.Strings[I-1]) + 1)); End; End; procedure TForm1.btImprimirClick(Sender: TObject); var I:Integer; Arquivo : TextFile; begin AssignFile(Arquivo,ComboBox1.text); Rewrite(Arquivo); WriteLn(Arquivo, ´TESTE DE IMPRESSAO - 1´); WriteLn(Arquivo, ´TESTE DE IMPRESSAO - 2´); WriteLn(Arquivo, ´TESTE DE IMPRESSAO - 3´); WriteLn(Arquivo, ´TESTE DE IMPRESSAO - 4´); CloseFile(Arquivo); end;
bom eu creio que o contra tempo esta na parte onde ta ali LPT1
se algueim souber a solução á e mais uma coisa como faso para imprimir em negrito italico sublinhado .... etc ???
se algueim souber irá me ajudar muitu
Obrigado desde já[size=7:165cd8ab45][/size:165cd8ab45][/code]
D31v1d1
Curtidas 0
Respostas
Vinicius2k
03/02/2005
Colega,
Se me permitir uma sugestão, utilize o VDOPrint -- http://devres.freeprohost.com
Creio que o pacote vai solucionar seus problemas com impressão em matricial e lhe dará os recursos que vc necessita, sem grande esforço.
Qualquer dúvida estou à disposição so fórum do site.
T+
Se me permitir uma sugestão, utilize o VDOPrint -- http://devres.freeprohost.com
Creio que o pacote vai solucionar seus problemas com impressão em matricial e lhe dará os recursos que vc necessita, sem grande esforço.
Qualquer dúvida estou à disposição so fórum do site.
T+
GOSTEI 0
D31v1d1
03/02/2005
ja tenho feito testes com este componente mais nao fiqei satisfeito com o resultado por que dependendo da versao do Delphi ela da alguns bugs!
mais mesmo assim agradeso pela ajuda vinicius :D
abs
mais mesmo assim agradeso pela ajuda vinicius :D
abs
GOSTEI 0
Vinicius2k
03/02/2005
ja tenho feito testes com este componente mais nao fiqei satisfeito com o resultado por que dependendo da versao do Delphi ela da alguns bugs!
mais mesmo assim agradeso pela ajuda vinicius :D
abs
Então, por favor, me relate os bugs por MP, e-mail ou no meu fórum... eu tenho conhecimento de cerca de 100 usuários do componente, e ninguém nunca relatou nenhum problema... :wink:
GOSTEI 0
D31v1d1
03/02/2005
tipo eu sou estagiario e estou fasendo um sistema, e iria faser com componentes mais meu chefe me falou que era pra min faser sem os tais componente por que dava alguns problemas portanto ai eu nao cheguei a testar desculpa por nao relatar isso antes, mais se puder me ajudar :wink:
GOSTEI 0
Vinicius2k
03/02/2005
Colega,
Então a situação é diferente: [b:6ee91facb2]garanto que seu chefe não testou meus componentes[/b:6ee91facb2]... ele apenas não quer que vc faça uso de componentes de 3ºs... ele quer que vc faça tudo usando só o que é nativo do Delphi.
Apesar de discordar, a posição dele é bastante comum e compreensível... mas existem muitos componentes bons e OpenSource, que cobrem várias lacunas deixadas pela VCL e facilitam muito o trabalho de desenvolvimento ou até mesmo implementam coisas que o Delphi não tem.
Sucesso e Boa sorte !
T+
Então a situação é diferente: [b:6ee91facb2]garanto que seu chefe não testou meus componentes[/b:6ee91facb2]... ele apenas não quer que vc faça uso de componentes de 3ºs... ele quer que vc faça tudo usando só o que é nativo do Delphi.
Apesar de discordar, a posição dele é bastante comum e compreensível... mas existem muitos componentes bons e OpenSource, que cobrem várias lacunas deixadas pela VCL e facilitam muito o trabalho de desenvolvimento ou até mesmo implementam coisas que o Delphi não tem.
Sucesso e Boa sorte !
T+
GOSTEI 0
Aroldo Zanela
03/02/2005
Colega,
Não testei a solução do Vinícios, mas tenho certeza que é funcional. Não vejo uma solução simples para o seu problema sem o uso de ferramentas ou componentes de terceiros.
Não testei a solução do Vinícios, mas tenho certeza que é funcional. Não vejo uma solução simples para o seu problema sem o uso de ferramentas ou componentes de terceiros.
Beyond Logic Port Talk I/O Port Driver
http://www.beyondlogic.org
The PortTalk driver combined with allowIO.exe, grants certain programs
exclusive access to IO Ports on a Windows NT/2000/XP system.
GOSTEI 0
Marcio.theis
03/02/2005
O que vc tb pode fazer é criar um arquivo .bat que executa diretamente o arquivo a ser impresso, para mim ainda não ocorreu problemas em nenhum windows. Ex.:
AssignFile(caminho,´Teste.bat´);
Rewrite(caminho);
if strAux = ´´ then
Writeln(caminho,´type Teste.txt >lpt1´) -> Na porta LPT1, local.
else
Writeln(caminho,´type Teste.txt >´+strAux); -> Via rede.
CloseFile(caminho);
WinExec(´Teste.bat´, 1);
GOSTEI 0
D31v1d1
03/02/2005
/]/]@t
nunca cheguei a mexer com isso será que poderia me esplicar melhor?
tipo onde coloco aquele codigo? como faso funcionar? presizo de algo mais?
como disse ainda sou novato se poder espero uma resposta :D
abs
nunca cheguei a mexer com isso será que poderia me esplicar melhor?
tipo onde coloco aquele codigo? como faso funcionar? presizo de algo mais?
como disse ainda sou novato se poder espero uma resposta :D
abs
GOSTEI 0
Marcio.theis
03/02/2005
Fiz um exemplo simples, somente crie uma nova aplicação e teste...
A única coisa que deve cuidar neste tipo de impressão é com os caracteres com ascento ou especiais.
Espero ter ajudado,
procedure TForm1.BitBtn1Click(Sender: TObject);
var
texto: TextFile;
caminho, strAux: string;
x: integer;
begin
caminho:=´Teste.txt´;
//Se quizer via rede deve-se colocar:
// \\nome_da_máquina\nome_do_COMPARTILHAMENTO_da_impressora (sem espaço deve de estar o compartilhamento)
AssignFile(texto, caminho);
Rewrite(texto);
for x:=0 to 5 do
WriteLn(texto, ´TESTE DE IMPRESSAO ´ + IntToStr(x));
CloseFile(texto);
//Arquivo bat
caminho:=´Teste.bat´;
AssignFile(texto,caminho);
Rewrite(texto);
if strAux = ´´ then
Writeln(texto,´type Teste.txt >lpt1´) //Local LPT1
else
Writeln(texto,´type Teste.txt >´ + strAux); //Via Rede
CloseFile(texto);
WinExec(PChar(caminho), 1);
end;
A única coisa que deve cuidar neste tipo de impressão é com os caracteres com ascento ou especiais.
Espero ter ajudado,
GOSTEI 0
Ricardo.vano
03/02/2005
Colega,
Se me permitir uma sugestão, utilize o VDOPrint -- http://devres.freeprohost.com
Creio que o pacote vai solucionar seus problemas com impressão em matricial e lhe dará os recursos que vc necessita, sem grande esforço.
Qualquer dúvida estou à disposição so fórum do site.
T+
Olá...não encontrei no site uma versão para Delphi 2005. É possível que eu consiga instalar o componente mesmo assim?
Obrigado :D
GOSTEI 0
Vinicius2k
03/02/2005
Olá...não encontrei no site uma versão para Delphi 2005. É possível que eu consiga instalar o componente mesmo assim?
Colega,
Infelizmente, não tive tempo para trabalhar alguma adaptação com amigos que possuem o Delphi 2K5.
Talvez seja possível a instalação, já que o pacote é acompanhado dos fontes, mas não posso garantir-lhe pois ainda não tive nenhum contato com o Delphi 2K5.
T+
GOSTEI 0