Печать файла из VB6

[AlexanderL]

Всем привет.

Подскажите, пожалуйста, как из vb послать файл на печать.
Как вариант, использовать shell() с указанием bat-ничка, в котором запускается печать этого файла. Но мне это не подходит.
Дело в том, что я програмно меняю настройки принтера (размер бумаги и ориентацию) с помощью OpenPrinter, DocumentProperties и т.д. Так вот если печатать так

Ret = StartDoc(hPrintDc, di)
Ret = StartPage(hPrintDc)
Ret = TextOut(hPrintDc, 0, 0, "печатаемый текст", <длина текста>)
Ret = EndPage(hPrintDc)
Ret = EndDoc(hPrintDc)
Ret = DeleteDC(hPrintDc)

то все ОК. А если запускать bat-ник, то установленные мной параметры принтера не применяются, естественно.

Поэтому вижу один выход - печатать файл прямо из VB.

Заранее очень благодарен!

[alibek]

Какой файл? Текстовый?
Советую вместо TextOut использовать DrawText, чтобы не возится с переносом строк вручную.
Только использовать API совсем не обязательно. Можно обойтись и Printer.Print.

[AlexanderL]

Файл TIF.
Через Printer у меня не получилось размер страницы поменять.

[Ennor]

Эээ. Свойство PaperSize, насколько я помню, а если ты его кустом ставишь, то тогда Height / Width...

[AlexanderL]

Да, так и делал. Просто, когда пробовал менять Width или Height, то они почему-то становились A4 всегда.
В принципе через API это нормально работает.

Кстати говоря, только что сделал печать TIF не батничком, а через Object. Все печатает, но установки принтера все равно сбрасываются, т.е. ему пофиг чт я там выше определял (размер бумаги и т.п.)

[Konst_One]

это от драйвера конкретного принтера зависит, некоторые могут и не поддерживать

[BV]

Ну а никто не пробовал использовать CommonDialog? Там ведь есть (в ActiveX компоненте) такая вещь Cdlg.ShowPrint.

[A.A.Z.]

Народ! Не юзайте CommonDialog! Юзайте API!