PROBLEMA: O método CopyFile não funciona para impressora DeviceName com espaços no NT

Voltar para o início

Exemplo passo a passo

1. Em um sistema Microsoft NT 4.0, adicione uma impressora com um nome que contenha um espaço.
2. Crie um arquivo de texto na pasta C:\, por exemplo, test.txt .
3. Inicie um novo projeto Standard EXE no Visual Basic. O Form1 é criado por padrão.
4. A partir do menu Project , selecione References , verificar Microsoft Scripting Runtime e clique em OK .
5. Adicione um CommandButton ao formulário.
6. Cole o código a seguir na janela de código do Form1:

   Private Sub Command1_Click()
   Dim FSO as FileSystemObject
   set FSO = new FileSystemObject
   
   ' To print on WinNT
   FSO.CopyFile "C:\test.txt", Printer.DeviceName
   
   ' If the devicename is like this: \\servername\HPLaser400, the file prints
   ' If the devicename is \\servername\HP Laser 400, the above mentioned 
   ' run-time error occurs
   
   ' To print on Win9x
   ' FSO.CopyFile "C:\test.txt",Printer.Port
   End Sub
   					

7. Pressione a tecla F5 para executar o projeto e clique no CommandButton .
8. O arquivo test.txt é impresso se o DeviceName é uma palavra sem espaços.
9. Como alternativa, você pode usar APIs para ignorar o driver de impressora e enviar dados para a impressora. Isto está documentado no artigo que Q154078 listados abaixo na seção "Referências".

Voltar para o início