VPF::Работа с принтерами - Форум программистов

Catisha

Дата 29.9.2006, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: 1
Всего: 1

Допустим, что у нас по умолчанию стоит Printer1. Выполняем процедуру:

Код


Call PrintForm("tag.dot", rst, 1, tagPrinter, True)

Как после выполнения этой функции сделать так, чтобы по умолчанию стоял предыдущий принтер.
Либо есть ли такая функция, которая распечатывает документ на указанном в своих параметрах принтере, но не устанавливает его по умолчанию?

Akina

Дата 29.9.2006, 19:03 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Запомнить текущий принтер, напечатать форму, вернуть текущий принтер на место. Собсно.

И, позвольте, полюбопытствовать, что есть за процедура PrintForm? Метод формы или документа знаю, а это откуда? самописное?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

amt

Дата 29.9.2006, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3

Вот небольшая инфа по принтеру. Межет чем поможет.

Присоединённый файл ( Кол-во скачиваний: 7 )

printer.rar 14,19 Kb

--------------------

С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.

Catisha

Дата 3.10.2006, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: 1
Всего: 1

А как программно это сделать. То есть какими функциями определяется установленный по умолчанию принтер, и задаётся принтер по умолчанию?

Catisha

Дата 10.10.2006, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: 1
Всего: 1

Всё, проблема исчерпана.
Функция, кстати, самописная, может кому поможет:

Код



 Public Sub PrintForm(DocTemplate As String, rstData As Recordset, iCopies As Integer, Optional printer As String, Optional AllRecords As Boolean = False, Optional ToPrint As Boolean = True)
' Function printing the form using word template
' Filed names should be in {}
If rstData.RecordCount = 0 Then Exit Sub
Dim wrdapp As Object
Dim strDOT As String ' Template name
Dim strTo, strWith As String
Dim i As Integer
Dim Oldprinter As String

Dim MyRange, ResRange As Object

Set wrdapp = CreateObject("Word.Application")


    
    On Error GoTo Err
    Dim tmpprinter As String
    
    ' full parh to template
    strDOT = Application.CurrentProject.path & "\" & DocTemplate
        
    wrdapp.Visible = False 'Not visible Visible
    wrdapp.Documents.Add template:=strDOT ' new document
    
    If wrdapp.ActiveDocument.Bookmarks.Exists("Body") = True Then
         Set MyRange = wrdapp.ActiveDocument.Bookmarks("Body").Range
         
    Else
         Set MyRange = wrdapp.ActiveDocument.Range
       
    End If
     MyRange.InsertAfter " "
     MyRange.SetRange Start:=MyRange.Start, End:=MyRange.End - 1
     Set ResRange = wrdapp.ActiveDocument.Range(Start:=MyRange.End, End:=MyRange.End + 1)
      
             
     If AllRecords Then
     ' Adding Body part with respective data for each record
     rstData.MoveFirst
     Do While Not rstData.EOF
     ResRange.InsertAfter " "
     Set ResRange = wrdapp.ActiveDocument.Range(Start:=ResRange.End - 1, End:=ResRange.End)
     MyRange.Copy
     ResRange.Paste
     Call replaceData(rstData, ResRange) ' Replace data with values
     
     rstData.MoveNext
     Loop
     MyRange.Delete
     Else
     Call replaceData(rstData, MyRange)
     End If
     
     ' Now printing or review
     
      
     If ToPrint Then
     If printer <> "" Then
Oldprinter = wrdapp.activePrinter 'store default printer
wrdapp.activePrinter = printer 'set active printer
     End If
     wrdapp.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=iCopies
     wrdapp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
     wrdapp.Quit  'Close app
     If printer <> "" Then wrdapp.activePrinter = Oldprinter
     Set wrdapp = Nothing
     Else
     ' Just make the document visible
     wrdapp.Visible = True
     End If
 
    Exit Sub

Err:
    MsgBox Err.Description  'Error
    Err.Clear
    Resume Next
End Sub

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »