Окно выбора принтера !

[MItya]

Люди, подскажите как в этом листинге сделать чтобы не сразу печаталось, а выскочило окошко выбора принтера.

Код: Выделить всё

Sub cmdPrint_Click()
   Dim objDoc
   Set objDoc = GetWordDoc("C:\doc.dot")
   Call FillFields (objDoc)
   objDoc.Application.Options.PrintBackground = True
   objDoc.Printout
   objDoc.Close wdDoNotSaveChanges
   Call RestoreWord
   Set objDoc = Nothing
End Sub


[Чудовище под кроватью]

Люди, подскажите как сделать чтобы выскочило окошко выбора принтера.

Код: Выделить всё

Application.Dialogs(xlDialogPrinterSetup).Show
'или:
Application.Dialogs(xlDialogPrint).Show

[KL]

и не забыть, что приведенные инструкции позволяют программно предустанавливать некоторые параметры:

http://msdn2.microsoft.com/en-us/librar ... (office.10).aspx

[MItya]

Люди, подскажите как сделать чтобы выскочило окошко выбора принтера.

Код: Выделить всё

Application.Dialogs(xlDialogPrinterSetup).Show
'или:
Application.Dialogs(xlDialogPrint).Show

пришет: "Переменная не определена: 'xlDialogPrint'"

[Чудовище под кроватью]

MItya
У меня все работает. А ты точно в коде все правильно написал?
Странно.
Попробуй тогда:

Код: Выделить всё

Application.Dialogs(8).Show

[MItya]

Чудовище под кроватью
пишет: "Объект не поддерживает это свойство или метод: 'Application.Dialogs'"
А ты на VBA пробуешь ?
мне на VBS нужно, там наверно по другому.

[Чудовище под кроватью]

MItya
Что за приложение? Word?
Я на VBA пробовал, но это тут ни при чем. - Это не оператор VBA.
Попробуй в ObjectBrowser найти Dialogs.

[inq]

MItya

objDoc.Dialogs(88 ).show ??

[MItya]

Чудовище под кроватью
не знает он такого слова "Dialogs"

[Чудовище под кроватью]

MItya
Что за приложение у тебя? Из пакета MS Office? Или ты просто отдельную программу сам написал на VB?
Проверь - может, ты в Object Browser выбрал одну из библиотек (тогда он ищет только в ней), в этом случае выбери All Libraries.
Какие вообще библиотеки подцеплены?

[Viper]

мне на VBS нужно, там наверно по другому.

Однако VBS <> VBA

[Nicky]

что-то типа того:

Код: Выделить всё

Option Explicit

Dim oNetwork, sPrintPath
Set oNetwork = CreateObject("WScript.Network")
oNetwork.AddWindowsPrinterConnection "\\server\printer1"
oNetwork.AddWindowsPrinterConnection "\\server\printer2"
oNetwork.AddWindowsPrinterConnection "\\server\printer3"
oNetwork.SetDefaultPrinter "\\server\printer1"


[Viper]

Nicky, и ты думаешь, что это выведет окно выбора принтера?

[Nicky]

!Viper!, естественно, нет. Просто своего готового кода у меня не было, поэтому нашел, через что из vbs можно работать с принтером. Имхо для MItya уже это будет откровением

зы: там же стоит дисклаймер "что-то типа того"

[MItya]

!Viper!, естественно, нет. Просто своего готового кода у меня не было, поэтому нашел, через что из vbs можно работать с принтером. Имхо для MItya уже это будет откровением

зы: там же стоит дисклаймер "что-то типа того"

откровения в этом я не нашел
у тебя же опять дефолтный принтер ставится.
в этом случае у меня и Printout хорошо работал.
мне же нужно выбирать на что печатать.

[Nicky]

Нда, там нет такого функционала
Все намного проще

Код: Выделить всё

Set cd = CreateObject("MSComDlg.CommonDialog")
cd.ShowPrinter


[MItya]

Нда, там нет такого функционала
Все намного проще

Код: Выделить всё

Set cd = CreateObject("MSComDlg.CommonDialog")
cd.ShowPrinter


СУПЕР !!!! заработало !!! спасибо !

одна засадка осталась:
код:

Код: Выделить всё

   Set objDoc = GetWordDoc("C:\doc.dot")
   Call FillFields (objDoc)
   Set cd = CreateObject("MSComDlg.CommonDialog")
   cd.ShowPrinter
   objDoc.Application.Options.PrintBackground = True
   objDoc.Printout
   objDoc.Close wdDoNotSaveChanges
   Call RestoreWord
   Set objDoc = Nothing


Раньше все в фоновом режиме работало.
А теперь после печати остается пусное окно Word.

[Nicky]

Скрыто от глаз посторонних сего воплощение: GetWordDoc
ADD: может заНофенить нами объект привнесенный?

[MItya]

Скрыто от глаз посторонних сего воплощение: GetWordDoc
ADD: может заНофенить нами объект привнесенный?

полный код программы:

Код: Выделить всё

Sub cmdPrint_Click()
   Dim objDoc
   Dim cd
   Set objDoc = GetWordDoc("C:\doc.dot")
   Call FillFields (objDoc)
   Set cd = CreateObject("MSComDlg.CommonDialog")
   cd.ShowPrinter
   objDoc.Application.Options.PrintBackground = True
   objDoc.Printout
   objDoc.Close wdDoNotSaveChanges
   Call RestoreWord
   Set objDoc = Nothing
End Sub
Sub FillFields(objDoc)
   Dim colFields
   Set colFields = objDoc.FormFields
   colFields("field1").Result = Item.LastModificationTime
   colFields("field2").Result=Item.UserProperties("Creator")
   colFields("field3").Result = Item.UserProperties("Firma")
   Set colFields = Nothing
End Sub
Function GetWordDoc(strTemplatePath)
   Dim objWord
   On Error Resume Next
   m_blnWeOpenedWord = False
   Set objWord = GetObject(, "Word.Application")
   If objWord Is Nothing Then
      Set objWord = CreateObject("Word.Application")
      m_blnWeOpenedWord = True
   End If
   m_blnWordPrintBackground = objWord.Options.PrintBackground
   If strTemplatePath = "" Then
      strTemplatePath = "Normal.dot"
   End If
   Set GetWordDoc = objWord.Documents.Add(strTemplatePath)
   Set objWord = Nothing
End Function
Sub RestoreWord()
   Dim objWord
   On Error Resume Next
   Set objWord = GetObject(, "Word.Application")
   objWord.Options.PrintBackground = m_blnWordPrintBackground
   If m_blnWeOpenedWord Then
      objWord.Quit
   Else
      objWord.Visible = True
   End If
   Set objWord = Nothing
End Sub


[Nicky]

m_blnWeOpenedWord как объявлена?

[MItya]

m_blnWeOpenedWord как объявлена?

Блин, верно!
у меня в начале кода была грамматическая ошибка в
Dim m_blnWeOpenedWord

теперь все закрывается

кстати заметил еще 1 недостаточек:
Если уже открыто одно приложение Word, то
при показе окна выбора принтера внизу экрана видно что
приложений Word уже 2.
Правда то окно, которое печатается потом пропадает.
Но нельзя ли сделать чтобы оно не показывалось вообще ?