Obter a letra do drive onde está o Windows no Delphi
Inclua na seção uses: Windows
Como saber em qual unidade de disco (drive) o Windows está instalado? Consulte mais informação
Inclua na seção uses: Windows
Como saber em qual unidade de disco (drive) o Windows está instalado? Consulte mais informação
Inclua na seção uses: Printers
{ Coloque este código no OnClick de um botão } with Printer.Fonts do if IndexOf('Draft 10cpi') >= 0 then ShowMessage('A impressora possui a fonte.') else ShowMessage('A impressora NÃO possui a fonte.');
Ou seja, gostaria que, ao visualizar ou imprimir um relatório do Quick Report, saia em cada página apenas um registro, mesmo que o espaço permita mais de um. Consulte mais informação
Inclua na seção uses: tbPrn
{ - Peque em nosso Download o arquivo tbPrn.zip. Ele contém a unit tbPrn.pas, onde está a função tbPrnSetPaperSize usada no exemplo abaixo; Consulte mais informação
{ A impressora Epson LX-300 dispõe de um comando que justifica o texto. Este recurso é interessante, pois com ele podemos continuar a enviar os comandos de formatação de caracteres como condensado, negrito, italico, expandido, etc. Consulte mais informação
{ Usando comandos da impressora podemos fazer isto de uma forma bastante simples. Quando enviamos o caractere ASCII número 8 (oito) para a impressora, a cabeça de impressão retrocede uma posição, pois este caractere é o BackSpace. Então podemos imprimir a letra sem acento e, sem seguida, voltar e imprimir o acento desejado. Vejamos um exemplo: Consulte mais informação
Antes de enviar seu relatório, faça assim: Printer.Title := 'Nome do relatório';
Esta solução aplica-se perfeitamente aos relatórios feitos usando o objeto Printer. Nos casos de geradores de relatórios, estes provavelmente possuem uma propriedade equivalente.
Usando instruções Assembly podemos fazer isto. A função abaixo retorna true se a porta informada está pronta. Consulte mais informação
Inclua na seção uses: Printers
Já vimos em outra dica como imprimir um memo acessando a impressora como se fosse um arquivo. Aqui usaremos outra técnica. Vamos usar o objeto Printer e "desenhar" na impressora usando Canvas. Esta técnica, dentre outras coisas, nos permite controlar: Consulte mais informação
Para imprimir um campo memo (objeto TMemo) podemos usar diversos métodos. Um deles é acessar a impressora como se fosse um arquivo. Para isto é necessário atribuir a impressora a uma variável arquivo (AssignPrn), abrir o arquivo (ReWrite), escrever nele (write e writeln) e finalmente fechar o arquivo (CloseFile). Talvez seja mais fácil entender o que estou dizendo estudando a rotina abaixo. Consulte mais informação
Inclua na seção uses: Windows
{ - Coloque um botão no form e escreva seu OnClick como abaixo: } Consulte mais informação
{ - Coloque um Label no form (Label1); - Mude a propriedade KeyPreview do form para true; - Altere o evento OnKeyDown do form como abaixo: } Consulte mais informação
Inclua na seção uses: Windows
{ Coloque um botão no form e altera o evento OnClick dele conforme abaixo: } Consulte mais informação
Inclua na seção uses: Windows
{ Digite a procedure abaixo imediatamente após a palavra implementation no código do seu formulário. } Consulte mais informação
{ Mude a propriedade "KeyPreview" do Form para true. } { No evento "OnKeyPress" do Form acrescente o código abaixo: } Consulte mais informação