Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Картинку на принтер   Найти похожие ветки 

 
hunter ©   (2001-12-17 13:17) [0]

Как осуществить сабж, но так чтобы правильно ее поместить на А4 в независимости от размера картинки.
Картинка есть-лист формати А4, но в каком разрешении не известно.


 
Sergey_n ©   (2001-12-18 00:06) [1]

В Borland C++ Builder вроде так
if ( PrintDialog1->Execute() ){
unsigned int BitmapInfoSize, BitmapImageSize;
long DIBWidth, DIBHeight;
PChar BitmapImage;
Windows::PBitmapInfo BitmapInfo;
Graphics::TBitmap *Bitmap;

Printer()->BeginDoc();
Bitmap = new Graphics::TBitmap();
Bitmap->Assign(Image3->Picture->Bitmap);
GetDIBSizes(Bitmap->Handle, BitmapInfoSize, BitmapImageSize);
BitmapInfo = (PBitmapInfo) new char[BitmapInfoSize];
BitmapImage = (PChar) new char [BitmapImageSize];
GetDIB(Bitmap->Handle, 0, BitmapInfo, BitmapImage);
DIBWidth = BitmapInfo->bmiHeader.biWidth;
DIBHeight = BitmapInfo->bmiHeader.biHeight;
StretchDIBits(Printer()->Canvas->Handle,
0, 0, DIBWidth, DIBHeight,
0, 0, DIBWidth, DIBHeight,
BitmapImage, BitmapInfo,
DIB_RGB_COLORS, SRCCOPY);
delete [] BitmapImage;
delete [] BitmapInfo;
delete Bitmap;

Printer()->EndDoc();
}

переделать на Delph думаю труда не составит.



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
14-22391
Serg5
2001-11-10 10:29
2002.01.08
Кому не лень, зайдите на http://forum.ru-board.com/ , он правда висит, или IP фильтрация, меня не пускают.


14-22342
Дремучий
2001-11-05 18:52
2002.01.08
Конкурс! Обои для игры (сайта) Sea Fight!


1-22047
handra
2001-12-17 13:12
2002.01.08
Создание справки


1-22108
Michael
2001-12-19 19:10
2002.01.08
Протяженная печать на матричном принтере


6-22296
Kolyan
2001-10-11 12:49
2002.01.08
TSocket !