Печать на указанный принтер

[Shasha]

Всем привет!
перерыл весь инет, но так и не наше ответа... =( подскажите, как выполнить печать на:
1)указанный принтер
2)указав диапазон страниц
при этом хочу, что бы вызывалась стандартная форма печать (ctrl+p) и в ней эти параметры были бы указаны и снопка печать на этой форме сама нажималась бы или просто печать происходила в фоновом режиме.

что я собрался печатать?
содержимое отображаемое контролом.

почему я не воспользовался "printer"?
там нет возможности указать принтер, а лишь получить список.

зарание благодарен за советы =)

[iGrok]

там нет возможности указать принтер, а лишь получить список.

Есть такая возможность. Выбираешь из списка тот, что тебе нужен, и говоришь

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

Dim oldPrinter as Object
Set oldPrinter = Printer
Set Printer = Printers._Выбранный_Принтер_.

'печатаешь

Set Printer = oldPrinter 'возвращаешь старый принтер на место.


Главное, не забудь обратно вернуть после печати.

[Shasha]

там нет возможности указать принтер, а лишь получить список.

Есть такая возможность. Выбираешь из списка тот, что тебе нужен, и говоришь

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

Dim oldPrinter as Object
Set oldPrinter = Printer
Set Printer = Printers._Выбранный_Принтер_.

'печатаешь

Set Printer = oldPrinter 'возвращаешь старый принтер на место.


Главное, не забудь обратно вернуть после печати.

сделать принтером по умолчаю и потом вернуть-я так делал-работает.
как пустить на печать?
форму печати я вызываю так:
DC.CmdPrint
там и есть выбранный принтер.как автоматически вбить диапазон страницы и нажать печать?

[JohnK]

А если использовать диалог:

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

CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True
' Set flags - no page numbers, return the selected printer
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
    CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
    CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If
' Enables error handling to catch cancel error
On Error Resume Next
' display the print dialog box
CommonDialog1.ShowPrinter

If Err Then
    ' This code runs if the dialog was cancelled
    Msgbox "Dialog Cancelled"
    Exit Sub
End If
' Prints the contents of RichTextBox
RichTextBox1.SelPrint (Printer.hDC)


[Shasha]

А если использовать диалог:

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

CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True
' Set flags - no page numbers, return the selected printer
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
If RichTextBox1.SelLength = 0 Then
    CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
Else
    CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
End If
' Enables error handling to catch cancel error
On Error Resume Next
' display the print dialog box
CommonDialog1.ShowPrinter

If Err Then
    ' This code runs if the dialog was cancelled
    Msgbox "Dialog Cancelled"
    Exit Sub
End If
' Prints the contents of RichTextBox
RichTextBox1.SelPrint (Printer.hDC)


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

[JohnK]

Объект Printer не позволяет указать диапазон страниц для печати. Тоесть ты должен сам "выдернуть" странички и последовательно направить их на принтер. Как, это уже другой вопрос.
http://msdn.microsoft.com/ru-ru/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer_members.aspx

А в диалоге есть свойства:

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

FromPage
ToPage


[JohnK]

Если не поможет, поковыряй вот эти функции:

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

Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long
Private Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command As Long) As Long
Private Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal cbBuf As Long, pcbNeeded As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long


[Shasha]

Объект Printer не позволяет указать диапазон страниц для печати. Тоесть ты должен сам "выдернуть" странички и последовательно направить их на принтер. Как, это уже другой вопрос.
http://msdn.microsoft.com/ru-ru/library/microsoft.visualbasic.powerpacks.printing.compatibility.vb6.printer_members.aspx

А в диалоге есть свойства:

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

FromPage
ToPage


ну, выдернуть и распечатать я могу, хорошо, опустим этот момент.
как распечатать фоново?

[JohnK]

А что тебе мешает печатать фоново? Ты формируешь задание - а потом выполняешь

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

Printer.EndDoc


Задание передается на принтер, начинается печать, а твоя прога продолжает выполнение алгоритма.

[alibek]

как распечатать фоново?

Вся печать в Windows происходит фоново.