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

Voltar ao topo

Exemplo passo a passo

1. Num sistema Microsoft NT 4.0, adicione uma impressora com um nome que contenha um espaço.
2. Crie um ficheiro de texto na pasta C:\, por exemplo, test.txt .
3. Inicie um novo projecto EXE padrão no Visual Basic. É criado o Form1 por predefinição.
4. No menu Project , seleccionar referências , consulte Microsoft Scripting Runtime e clique em OK .
5. Adicione um CommandButton ao formulário.
6. Cole o seguinte código 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. Prima a tecla F5 para executar o projecto e, em seguida, clique no CommandButton .
8. O ficheiro test.txt é impresso, se o nomedispositivo uma palavra sem espaços.
9. Em alternativa, pode utilizar a API para ignorar o controlador de impressora e enviar dados para a impressora. Isto está documentado no artigo que Q154078 listados abaixo na secção "Referências".

Voltar ao topo