Impressão em Visual Basic pode ser um pouco complicado de configurar, mas uma vez feito , os meandros são invisíveis para o usuário. Um controle de Visual Basic chamado controle diálogo comum incorpora um método para imprimir em Visual Basic. Usando o código ligado a este controle será aberta uma caixa de diálogo onde o usuário pode escolher atributos específicos para impressão , como as páginas a imprimir , o número de cópias e propriedades específicas da impressora envolvidos. Instruções
1
Criar a caixa de diálogo Printer abrindo Visual Basic e selecionando " Standard EXE " a partir da lista de modelos oferecidos para um novo projeto. Salve o novo projeto criado com um nome simples como "Impressora" , clicando em " Arquivo" e " Salvar Projeto como . " Enter "Impressora" na caixa de diálogo que se abre. Por padrão, o Visual Basic atribui uma extensão do " VBP . " Salvar o padrão " Form1 " criado da mesma forma , ao clicar em " Salvar formulário como" e dando a forma do nome "Impressora" também.
2
Adicione o controle diálogo comum para o projeto. Clique em " Project" no menu na parte superior da tela. A partir da lista drop-down , selecione " Adicionar componentes . " Desça uma lista muito longa que parece até que você veja "Comum de Controlo Microsoft diálogo 6.0 ( SP6) . Selecione esta com o mouse e clique em "OK".
3
Clique duas vezes sobre o controle diálogo comum , que deve agora ser exibido na parte inferior do controle mostrado no painel esquerdo a tela . Um ícone parecendo dois zeros com uma barra em cima deles e dois pontos um sob o outro representa este controle. Quando você executa o mouse sobre este , as palavras " CommonDialog " irá aparecer.
4
Dê um duplo clique no ícone " CommandButton " no painel esquerdo , representado por um pequeno retângulo . Isto coloca um comando no formulário. Clique no botão agora identificado como " Command1. " Na lista de "Propriedades" para este controle à direita, mudar o nome para " cmdPrint " . Role para baixo até ver mudar o nome deste para "Imprimir"
5
Type " Caption ". : . Dim FileName , TextLine , BeginPage , EndPage , NumCopies , Orientação , iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ( "O arquivo devo imprimir ?") Abra o nome do arquivo para Input As # 1DO While Not EOF (1) Line Input # 1, # TextLinePrinter.Print TextLineLoopClose 1End
6
Teste o código pressionando "F5" e clique em "Imprimir" no formulário. Introduza a localização de um arquivo de texto em seu computador arquivos. O documento deverá ser impresso . Se isso não acontecer, analisar cada linha de código acima para garantir que ele está correto.
