Sdílet prostřednictvím

Postupy: Klonování tiskárny

  • Článek

Většina firem v určitém okamžiku koupí více tiskáren stejného modelu. Obvykle se instalují s prakticky identickými konfiguračními nastaveními. Instalace každé tiskárny může být časově náročná a náchylná k chybám. Obor názvů System.Printing.IndexedProperties a třída InstallPrintQueue, které jsou vystaveny rozhraním Microsoft .NET Framework, umožňují okamžitě nainstalovat libovolný počet dalších tiskových front, které jsou naklonovány z existující tiskové fronty.

Příklad

V následujícím příkladu se druhá tisková fronta naklonuje z existující tiskové fronty. Druhá se liší od prvního pouze v názvu, umístění, portu a sdíleném stavu. Hlavní kroky pro tento postup jsou následující.

  1. Vytvořte objekt PrintQueue pro existující tiskárnu, která se bude klonovat.

  2. Vytvořte PrintPropertyDictionary z PropertiesCollectionPrintQueue. Vlastnost Value každé položky v tomto slovníku je objekt jednoho z typů odvozených z PrintProperty. Existují dva způsoby, jak nastavit hodnotu položky v tomto slovníku.

    • Pomocí metod Remove a Add slovníku odeberte položku a pak ji znovu přidejte s požadovanou hodnotou.

    • Použijte metodu SetProperty slovníku.

    Následující příklad ukazuje oba způsoby.

  3. Vytvořte objekt PrintBooleanProperty a nastavte jeho Name na IsShared a jeho Value na true.

  4. Použijte objekt PrintBooleanProperty jako hodnotu položky PrintPropertyDictionary"IsShared".

  5. Vytvořte objekt PrintStringProperty a nastavte jeho Name na ShareName a jeho Value na odpovídající String.

  6. Použijte objekt PrintStringProperty jako hodnotu položky PrintPropertyDictionary"ShareName".

  7. Vytvořte další objekt PrintStringProperty a nastavte jeho Name na "Umístění" a jeho Value na odpovídající String.

  8. Použijte druhý objekt PrintStringProperty jako hodnotu položky „Location“ u PrintPropertyDictionary.

  9. Vytvořte pole Strings. Každá položka je název portu na serveru.

  10. Pomocí InstallPrintQueue nainstalujte novou tiskárnu s novými hodnotami.

Příklad je níže.

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()

Viz také