impressão Visual Basic inclui uma função de "Impressora" para imprimir um arquivo, mas não dá o controle sobre a formatação, especialmente para quebrar linhas longas . Código adicional pode manipular o texto , o teste para o comprimento da linha e localização dos espaços para encontrar um bom lugar para quebrar as linhas. No entanto, existe uma maneira mais fácil , envolvendo apenas algumas linhas de código e um controle Rich TextBox. O único inconveniente é que não irá fornecer as configurações de margem. Isso é possível com uma API ( Application Programming Interface ) chamada, mas o código API é longo , correndo mais de 122 linhas de código e 700 + palavras com explicação. Isto ultrapassa o âmbito deste artigo . Instruções
1

Criar um novo projecto EXE padrão no Visual Basic , clicando em " Arquivo", depois "New Project " e escolhendo o modelo Standard EXE. Adicione um controle Label para o formulário que se abre ao clicar no ícone da etiqueta na caixa de ferramentas , mostrando à esquerda. Esta é a grande letra "A" em caps. Procure na lista de propriedades à direita para as propriedades Label1 e altere a legenda para ler "Nome do arquivo a ser impresso ? " , Mas não incluem as aspas .
2

Adicione um controle TextBox para a forma da mesma maneira , usando o ícone Caixa de ferramentas de uma pequena praça com letras minúsculas "AB" nele. Posicione a caixa de texto à direita da etiqueta. Localize a propriedade "Text" na lista de propriedades para este controle e clique duas vezes sobre a propriedade de texto para destacar o nome padrão. Pressione o botão " Delete" no teclado para removê-lo.
3

Adicione dois botões de comando da caixa de ferramentas , identificados por um pequeno retângulo . Alterar a legenda do primeiro para "Imprimir" ea legenda do segundo para "Cancelar". Adicionar um controle à caixa de ferramentas , clicando em " Project" no menu superior e , em seguida, "Componentes . Encontre o " Rich TextBox controle do Microsoft 6.0 ( SP6) " na lista e clique na caixa de seleção para selecioná-lo . Clique em "Aplicar " e " OK". Adicione o novo controle , que deve estar na parte inferior da lista de controle . Movendo o cursor sobre o ícone irá exibir o nome.
4

Clique na caixa de texto RTF Controle Microsoft 6.0 ( SP6) no formulário. Na lista de propriedades para este controle , elimine o "Text" nome , altere a propriedade " Multiline " de " False" para "É verdade, fazer o" "propriedade" Visible Falso " e definir a " propriedade Font "para qualquer fonte e tamanho você desejar.
5

clique duas vezes no controle de impressão para abrir a janela de código. Digite o código exatamente como aparece abaixo :

Private Sub Command1_Click () Dim strFileToPrint , strFullFile , strReadLine Como StringstrFileToPrint = Text1.TextOpen strFileToPrint Para Input As # 1DO Até EOF (1) Line Input # 1, strReadLinestrFullFile = strFullFile & strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd
Sub

Abaixo desse tipo o seguinte código:

Private Sub Command2_Click () endend Sub

6

Pressione " F5" para executar o programa e imprimir um arquivo . Se o documento não for impresso , verifique as linhas de código acima para ter certeza de que você digitou corretamente. Se aparecer um aviso para o efeito que o arquivo não foi encontrado , em seguida, verifique o nome do local e arquivo .