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 wink.gif 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á