Настройка принтера

[Flo]

Почему-то код

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

On Error GoTo CDERR
With CommonDialog1
    .CancelError = True

    .flags = cdlPDPrintSetup Or cdlPDReturnIC
     .PrinterDefault = True
    .ShowPrinter
     
End With


не меняет настройки дефолтного принтера, хотя вроде должен бы был или нет??
если вызвать CommonDialog снова то в себе он сделанные настройки помнит, но объект Printer вызывает с дефолтными..
Вопрос в том как то, что он помнит (размер бумаги, ориентация и т.п.) достать и на объект Printer послать?
Если возможно, подскажите, пожалуйста.

[Flo]

И так никто ничего и не сказал. Хоть ткните меня во что-нибудь носом, где поискать подскажите, пожалуйста
Вопрос в том, как при помощи Common Dialog передать выбранные пользователем настройки принтера (формат бумаги, ориенацию и т.п.) на объект Printer.
Приблизительно представляю, что есть какое-то такое hWnd, а еще есть hDC, которое тоже что-то возвращает, но как-то подступиться ко всему этому не знаю с какой стороны. Может у кого-нибудь пример есть, или его кто-то где-то видел?

[GSerg]

printer.property1=commondialog.property1
printer.property2=commondialog.property2
printer.property3=commondialog.property3
et cetera...

[Flo]

Это все конечно так... Только вот у Сommon Dialog'a нет свойства отвечающего за размер бумаги... По крайней мере по моим данным. И что с этим можно поделать?

[Flo]

Есть такая API - GetPrinter. Она может возвращать данные принтера.
Например такую структуру:

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

Private Type PRINTER_INFO_2
   pServerName As String
   pPrinterName As String
   pShareName As String
   pPortName As String
   pDriverName As String
   pComment As String
   pLocation As String
   pDevMode As Long
   pSepFile As String
   pPrintProcessor As String
   pDatatype As String
   pParameters As String
   pSecurityDescriptor As Long
   Attributes As Long
   Priority As Long
   DefaultPriority As Long
   StartTime As Long
   UntilTime As Long
   Status As Long
   JobsCount As Long
   AveragePPM As Long
End Type


В этой структуре есть переменная pDevMode - пойнтер на нужные мне данные принтера типа:

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

Private Type DEVMODE
    dmDeviceName As String * CCHDEVICENAME
    dmSpecVersion As Integer
    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmYResolution As Integer
    dmTTOption As Integer
    dmCollate As Integer
    dmFormName As String * CCHFORMNAME
    dmUnusedPadding As Integer
    dmBitsPerPel As Integer
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
End Type


Вопрос в том как по этому самому пойнтеру до этих данных добраться.
Скажите, хотя бы, хоть в том направлении двигаюсь?
А то у меня ощущение, что я первый "космонавт" и до меня размер бумаги из СommonDialog'а вообще никто не настраивал. Может это проще можно сделать, подскажите!

[Flo]

И тишина... НИкак не могу поверить, что никто этого не делал

[Ennor]

А вот мне вполне верится. Пипл, который программит дома для себя, редко сталкивается с необходимостью (да что уж там говорить - с возможностью ) печати...

У меня, например, в соотв. диалоге вообще нельзя настроить размер бумаги. Другое дело, что это прекрасно настраивается в свойствах конкретного принтера. Ну а узнать установки по данному вопросу можно, пользуясь свойством Printer.PaperSize. Более того, его из кода еще и поменять можно...

[Flo]

И на том спасибо, большое..

[Flo]

А если не

дома для себя

то как это "приличные программеры" делают? Пожалуйста...

[Ennor]

Если ты работаешь программистом, то в конторах принтеры есть практ. всегда, и можно "на кошках попрактиковаться", что называется . А дома... ну, конкретно у меня дома 3 компа и 2 принтера (лазерник и фотоструйник), но программить печать на VB... нет, никогда не сталкивался, ни дома, ни по работе. Даже с отчетами ни разу в жизни не работал .

[Flo]

2Ennor:
Спасибо за ответ.

А те кто сталкивались - молчат.

[Flo]

Возможно, кто-нибудь сможет подсказать при помощи чего можно получить список всех возможных форматов бумаги для конкретно выбранного принтера системы
А то меня скоро наверно ...

[Ennor]

А ты посмотри хелп в MSDN на тему свойства Printer.PaperSize - они там все константами зашиты...
Например:

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

vbPRPSLetter=1 Letter, 8 1/2 x 11 in.
...
vbPRPSA3=8 A3, 297 x 420 mm
vbPRPSA4=9 A4, 210 x 297 mm
...

И вот еще что, самое приятное:

Setting a printer's Height or Width property automatically sets PaperSize to vbPRPSUser.

То есть всегда есть возможность выставить произвольный формат бумаги...

[Flo]

Спасибо, Ennor.
К сожалению, это

То есть всегда есть возможность выставить произвольный формат бумаги...

не совсем так. Возможность выставления произвольного формата бумаги зависит от драйвера принтера, не все это позволяют. При попытке это сделать может выдаваться ошибка или же формат бумаги будет выставляться на ближайший стандартный.

Note The effect of the properties of the Printer object depends on the driver supplied by the printer manufacturer. Some property settings may have no effect, or several different property settings may all have the same effect. Settings outside the accepted range may or may not produce an error. For more information, see the manufacturer's documentation for the specific driver.

Это я "на кошках практиковалась"
А спрашивала я про форматы, доступные конкретному выбранному принтеру, а ему, как правило доступны не все.

[Ennor]

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

Только что внимательно прочел, что именно тебе нужно. Боюсь, это действительно надо с их дровами напрямую контачить. Но тут есть одна юридическая тонкость:
1. Если у тебя программа специализированная (например, для продажи и печати билетов в кинотеатрах) - значит, вопрос о спецоборудовании даже не стоит, конкретно билетные принтеры - крайне специфичная вещь, и очень хорошо документированная. Я видел такие, когда моя прошлая контора такой софт писала. Так что тут можно и с производителем связаться, при необходимости.
2. Если у тебя прога широкого назначения, значит, ориентируйся на наиболее распространенные форматы бумаги - А4, А3, Legal, ну и может еще пару энвелопов, которые у вас в Эстонии общеприняты. Большинству этого хватит, а эти форматы поддерживают все принтеры моложе 10 лет .

Ну и, конечно, отлов ошибок в этом случае надо очень качественный организовать. Например, у тебя идет код установки нестандартных размеров бумаги - так сразу после него:

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

with Printer
  .Height = 1000
  .Width = 500
  ' Look here!
  DoEvents
  If .Height <> 1000 Or .Width <> 500 Then
  ... ' Пишешь пользователю, что его формат не катит, например
End With

Еще можно поставить On Error Resume Next и в следующей же строке проверять на Err.Number <> 0 . Есть способы, есть...

[Flo]

Спасибо большое за совет, только сегодня прочитала..