Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Mandar impressão para impressora


Question

2 answers to this question

Recommended Posts

  • 0

Quanto a guilhotina não vou saber te ajudar, mas quanto a mandar a impressão direto pra uma impressora, você pode utilizar a classe Printer, ex:

Função para buscar o Index da impressora pelo nome:

function GetLabelPrinterIndex(PrinterName: String): Integer;
var
  Cont: Integer;
begin
  for Cont := 0 to Printer.Printers.Count - 1 do
    if AnsiContainsText(Printer.Printers[Cont], PrinterName) then
      Exit(Cont);
  Result := -1;
end;

Exemplo de uso:

Printer.PrinterIndex := GetLabelPrinterIndex('HP LaserJet 1320');

Nesse caso, estou setando a impressora para a HP LaserJet 1320, independente se ela é a impressora padrão ou não

Link to post
Share on other sites
  • 0
1 hora atrás, Leo_cj disse:

Quanto a guilhotina não vou saber te ajudar, mas quanto a mandar a impressão direto pra uma impressora, você pode utilizar a classe Printer, ex:

Função para buscar o Index da impressora pelo nome:

function GetLabelPrinterIndex(PrinterName: String): Integer;
var
  Cont: Integer;
begin
  for Cont := 0 to Printer.Printers.Count - 1 do
    if AnsiContainsText(Printer.Printers[Cont], PrinterName) then
      Exit(Cont);
  Result := -1;
end;

Exemplo de uso:

Printer.PrinterIndex := GetLabelPrinterIndex('HP LaserJet 1320');

Nesse caso, estou setando a impressora para a HP LaserJet 1320, independente se ela é a impressora padrão ou não

Dessa forma não funcionou. Eu fiz o seguinte.

Printer.BeginDoc;
DestRect := TRectF.Create(0, 0, Printer.PageWidth, Printer.PageHeight);
Printer.Canvas.Font.Size:= 80;
Printer.Canvas.FillText(DestRect,sTexto,True,1,textFill,align,align);
Printer.EndDoc;

Obrigado pelo retorno.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148862
    • Total Posts
      644859
×
×
  • Create New...