Compartilhar via

Como clonar uma impressora

  • Artigo

A maioria das empresas comprará, em algum momento, várias impressoras do mesmo modelo. Normalmente, todas elas são instaladas com configurações praticamente idênticas. A instalação de cada impressora pode ser demorada e propensa a erros. O namespace System.Printing.IndexedProperties e a classe InstallPrintQueue que são expostas com o Microsoft .NET Framework possibilita instalar instantaneamente qualquer número de filas de impressão adicionais clonadas de uma fila de impressão existente.

Exemplo

No exemplo abaixo, uma segunda fila de impressão é clonada de uma fila de impressão existente. O segundo é diferente do primeiro apenas em seu nome, local, porta e status compartilhado. As principais etapas para fazer isso são as seguintes.

  1. Crie um objeto PrintQueue para a impressora existente que será clonada.

  2. Crie um PrintPropertyDictionary do PropertiesCollection do PrintQueue. A propriedade Value de cada entrada neste dicionário é um objeto de um dos tipos derivados de PrintProperty. Há duas maneiras de definir o valor de uma entrada neste dicionário.

    • Use os métodos Remover e Add do dicionário para remover a entrada e adicioná-la novamente com o valor desejado.

    • Use o método de SetProperty do dicionário.

    O exemplo a seguir ilustra as duas maneiras.

  3. Crie um objeto PrintBooleanProperty e defina seu Name como "IsShared" e seu Value para true.

  4. Use o objeto PrintBooleanProperty para ser o valor da entrada "IsShared" do PrintPropertyDictionary.

  5. Crie um objeto PrintStringProperty e defina seu Name como "ShareName" e sua Value para um Stringapropriado.

  6. Use o objeto PrintStringProperty para ser o valor da entrada "ShareName" do PrintPropertyDictionary.

  7. Crie outro objeto PrintStringProperty e defina seu Name como "Local" e sua Value para um Stringapropriado.

  8. Use o segundo objeto PrintStringProperty para ser o valor da entrada "Local" do PrintPropertyDictionary.

  9. Crie uma matriz de Strings. Cada item é o nome de uma porta no servidor.

  10. Use InstallPrintQueue para instalar a nova impressora com os novos valores.

Um exemplo está abaixo.

LocalPrintServer myLocalPrintServer = new LocalPrintServer(PrintSystemDesiredAccess.AdministrateServer);
PrintQueue sourcePrintQueue = myLocalPrintServer.DefaultPrintQueue;
PrintPropertyDictionary myPrintProperties = sourcePrintQueue.PropertiesCollection;

// Share the new printer using Remove/Add methods
PrintBooleanProperty shared = new PrintBooleanProperty("IsShared", true);
myPrintProperties.Remove("IsShared");
myPrintProperties.Add("IsShared", shared);

// Give the new printer its share name using SetProperty method
PrintStringProperty theShareName = new PrintStringProperty("ShareName", "\"Son of " + sourcePrintQueue.Name +"\"");
myPrintProperties.SetProperty("ShareName", theShareName);

// Specify the physical location of the new printer using Remove/Add methods
PrintStringProperty theLocation = new PrintStringProperty("Location", "the supply room");
myPrintProperties.Remove("Location");
myPrintProperties.Add("Location", theLocation);

// Specify the port for the new printer
String[] port = new String[] { "COM1:" };

// Install the new printer on the local print server
PrintQueue clonedPrinter = myLocalPrintServer.InstallPrintQueue("My clone of " + sourcePrintQueue.Name, "Xerox WCP 35 PS", port, "WinPrint", myPrintProperties);
myLocalPrintServer.Commit();

// Report outcome
Console.WriteLine("{0} in {1} has been installed and shared as {2}", clonedPrinter.Name, clonedPrinter.Location, clonedPrinter.ShareName);
Console.WriteLine("Press Return to continue ...");
Console.ReadLine();

Dim myLocalPrintServer As New LocalPrintServer(PrintSystemDesiredAccess.AdministrateServer)
Dim sourcePrintQueue As PrintQueue = myLocalPrintServer.DefaultPrintQueue
Dim myPrintProperties As PrintPropertyDictionary = sourcePrintQueue.PropertiesCollection

' Share the new printer using Remove/Add methods
Dim [shared] As New PrintBooleanProperty("IsShared", True)
myPrintProperties.Remove("IsShared")
myPrintProperties.Add("IsShared", [shared])

' Give the new printer its share name using SetProperty method
Dim theShareName As New PrintStringProperty("ShareName", """Son of " & sourcePrintQueue.Name & """")
myPrintProperties.SetProperty("ShareName", theShareName)

' Specify the physical location of the new printer using Remove/Add methods
Dim theLocation As New PrintStringProperty("Location", "the supply room")
myPrintProperties.Remove("Location")
myPrintProperties.Add("Location", theLocation)

' Specify the port for the new printer
Dim port() As String = { "COM1:" }


' Install the new printer on the local print server
Dim clonedPrinter As PrintQueue = myLocalPrintServer.InstallPrintQueue("My clone of " & sourcePrintQueue.Name, "Xerox WCP 35 PS", port, "WinPrint", myPrintProperties)
myLocalPrintServer.Commit()

' Report outcome
Console.WriteLine("{0} in {1} has been installed and shared as {2}", clonedPrinter.Name, clonedPrinter.Location, clonedPrinter.ShareName)
Console.WriteLine("Press Return to continue ...")
Console.ReadLine()

Consulte também