
D31v1d1
Membros-
Total de itens
648 -
Registro em
-
Última visita
Tudo que D31v1d1 postou
-
algueim tem alguma previsao de quanto sairá em R$
-
Imprimir Nota Fiscal Em Impresora Matricial
pergunta respondeu ao D31v1d1 de D31v1d1 em Delphi, Kylix
ai vai o codigo que estou usando para poderem me ajudar melhor 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á -
so não gostei da cor letra do menu e o fundo poderia botar um efeito bem fraquinho sei la, o resto esta muitu bom e organisado
-
Priciso De Uma Avaliação Em Um Site!
um tópico no fórum respondeu D31v1d1 em Avaliações de Trabalhos
link suxxx -
esta bom 9,0
-
tambem a fonte o menu e o site ta bem quadradao e o jogo nen abri
-
bom sei que é uma pergunta bem ridicula pois quase todos aqui devem saber disso mais gostaria de saber como colocar uma animaçao em flash no meu site??? primeira esperiencia no flash se puder me ajudem falou abs
-
muitu legal so não gostei muitu daquelas cores ali não combinou mais vale 9,0
-
Imprimir Nota Fiscal Em Impresora Matricial
pergunta respondeu ao D31v1d1 de D31v1d1 em Delphi, Kylix
sim isto funciona, mais no win2000 não, e eu presizava tambem de como imprimir negrito ... etc -
existem programas que fasem isso é so procurar pela net que voce acha mais não darei nomes e nem links pra não me comprometer
-
tem um tópico so cm servidores free so da uma olhada cara abs e boa sorte
-
acho que free vai ser dificil mais ai no forum ta cheio de freelancers mais se achar posta ai
-
Imprimir Em Impresora Matricial Em Win2000 ...
pergunta respondeu ao D31v1d1 de D31v1d1 em Delphi, Kylix
sei que estou flodando e peso desculpas por isso mais foi o unico metodo que encontrei de faser com que meu tópico seja solucionado! por favor algueim sabe faser isso sem usar componentes? -
Meu Site (under Construction...)
tópico respondeu ao guevara1990 de D31v1d1 em Avaliações de Trabalhos
tbein n gostei daqele vermelho ali -
muitu bom 8
-
Site Leve Xhtml+css+tableless
tópico respondeu ao tiagomadeira de D31v1d1 em Avaliações de Trabalhos
7,0 -
Priciso De Uma Avaliação Em Um Site!
um tópico no fórum respondeu D31v1d1 em Avaliações de Trabalhos
coloca o link pliss -
Boa Tarde pessoal! bom tinha lançado uma duvida esses tempo atras de como imprimir numa impressora matricial pelo sistema, não 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 nada bom ai vai o codigo // Esta rotina lê todas as impressoras instaladas no windows // e coloca dentro de um ComboBox 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; // e quando apertar o botao imprimir, o evento pega qual a impressora // que você escolheu atravéz do ComboBox e Imprimi. 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á
-
never, tbein não gostei 5,0 tdu mutu gigante nada ver aqele fundo imagens muitu ruins sei la não gostei nada
-
Avaliem Banner De Site Pessoal
tópico respondeu ao guevara1990 de D31v1d1 em Avaliações de Trabalhos
legal concordo com o André Ruivão -
bem legal
-
ficou bem massa o layout as cores bem show
-
muitu fraco o corpo da pagina poderia ser melhorada mudando aqeli fundo qe não conbinou e so reformulando que eu saiba é Layout falou