Ændre egenskaber på en printer med VBScript

Der:

Printer.Orientation = vbPRORLandscape

kan du lave hele scriptet jeg kan nemlig ikke kode VBScript

Hejsa fldkdla
Du kan ikke ændre dette ved brug af vbs scripting, men det kan lade sig gøre med visual basic.

Et eksempel fra microsofts side:

Dim obj As PageSet.PrinterControl

  Private Sub Command1_Click()
      On Error GoTo errorhandler:
      Set obj = New PrinterControl
      obj.ChngOrientationLandscape
      DataReport1.Show
      DataReport1.PrintReport False, rptRangeFromTo, 1, 1

      Exit Sub

  errorhandler:
      MsgBox Err.Description
      obj.ReSetOrientation

  End Sub


  Private Sub Form_Unload(Cancel As Integer)

      obj.ReSetOrientation 'This resets the printer to portrait.

  End Sub


Resten af eksemplet finder du her:

http://support.microsoft.com/default.aspx?scid=kb;en-us;182070


Fo at få oplysninger om dine lokale printeres instillinger kan du bruge dette script:



strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_PrinterConfiguration")
For Each objPrinter in colInstalledPrinters
    Wscript.Echo "Name: " & objPrinter.Name
    Wscript.Echo "Collate: " & objPrinter.Collate
    Wscript.Echo "Copies: " & objPrinter.Copies
    Wscript.Echo "Driver Version: " & objPrinter.DriverVersion
    Wscript.Echo "Duplex: " & objPrinter.Duplex
    Wscript.Echo "Horizontal Resolution: " & _
        objPrinter.HorizontalResolution
    If objPrinter.Orientation = 1 Then
        strOrientation =  "Portrait"
    Else
        strOrientation = "Landscape"
    End If
    Wscript.Echo "Orientation : " & strOrientation
    Wscript.Echo "Paper Length: " & objPrinter.PaperLength / 254
    Wscript.Echo "Paper Width: " & objPrinter.PaperWidth / 254
    Wscript.Echo "Print Quality: " & objPrinter.PrintQuality
    Wscript.Echo "Scale: " & objPrinter.Scale
    Wscript.Echo "Specification Version: " & _
        objPrinter.SpecificationVersion
    If objPrinter.TTOption = 1 Then
        strTTOption = "Print TrueType fonts as graphics."
    Elseif objPrinter.TTOption = 2 Then
        strTTOption = "Download TrueType fonts as soft fonts."
    Else
        strTTOption = "Substitute device fonts for TrueType fonts."
    End If
    Wscript.Echo "True Type Option: " & strTTOption
    Wscript.Echo "Vertical Resolution: " & objPrinter.VerticalResolution
Next


Håber du kan bruge det:):)

ups forkert link...her er det rigtige:):):

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q198/9/01.asp&NoWebContent=1

kunne du bruge det?

Kunne ikke bruge det. sorry...