Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > C++ > Visual C++
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.07.2019, 12:17   #1
erslgoeirjh
Форумчанин
 
Регистрация: 19.05.2009
Сообщений: 81
Репутация: 10
По умолчанию Как правильно печатать многостраничный файл?

Есть текстовой файл results.txt . Его нужно вывести на принтер.
При этом этот файл может иметь как одну страницу, так и две страницы--его размер неизвестен.

Если этот файл имеет одну страницу, то проблем с его печатью не возникает. Вот код:

Код:
void CPrintSolvedNUDialog::OnBnClickedOk()
// если была нажата кнопка "Печать"
{
    // TODO: добавьте свой код обработчика уведомлений
    int  i, n, len, cyChar, cyPage, yPos, strcount, xlpPrinter, ylpPrinter;
    char  s[256];
    CString  myString;
    LPCSTR  pzText;
    LPTSTR  lpszText;
    DWORD  size = MAX_PATH;
    TCHAR  temp[MAX_PATH];
    TEXTMETRIC  txtm;
    LOGFONT lf, lf2;
    CFont  myFont, myFont2;
    FILE *f;

    strcount = 0;
    CPrintDialog  cp(FALSE);
    if (cp.DoModal()==IDOK)
    {
        CDC  printDC;
        printDC.Attach(cp.GetPrinterDC());
        cyPage = printDC.GetDeviceCaps(VERTRES);
        printDC.GetTextMetrics(&txtm);
        cyChar = txtm.tmHeight + txtm.tmExternalLeading;
        yPos = 0;
        xlpPrinter = ::GetDeviceCaps(printDC,LOGPIXELSX);
        ylpPrinter = ::GetDeviceCaps(printDC,LOGPIXELSY);
        DOCINFO  docinfo;
        ::ZeroMemory(&docinfo,sizeof(DOCINFO));
        docinfo.cbSize = sizeof(docinfo);
        docinfo.lpszDocName = "Simple";
        docinfo.lpszOutput = NULL;
        docinfo.lpszDatatype = "RAW";
        docinfo.fwType = 0;
        CFont *savedFont;
        savedFont = printDC.GetCurrentFont();
        savedFont->GetLogFont(&lf);
        savedFont->GetLogFont(&lf2);
        strcpy(lf.lfFaceName,"Courier New");
        lf.lfHeight = 15;
        lf.lfWidth = 6;
        lf.lfHeight = (int)(((long double)lf.lfHeight/72.0)*(long double)ylpPrinter);
        lf.lfWidth = (int)(((long double)lf.lfWidth/72.0)*(long double)xlpPrinter);
        myFont.CreateFontIndirectA(&lf);
        strcpy(lf2.lfFaceName,"Courier New");
        lf2.lfHeight = 18;
        lf2.lfWidth = 6;
        lf2.lfHeight = (int)(((long double)lf2.lfHeight/72.0)*(long double)ylpPrinter);
        lf2.lfWidth = (int)(((long double)lf2.lfWidth/72.0)*(long double)xlpPrinter);
        myFont2.CreateFontIndirectA(&lf2);
        printDC.SelectObject(&myFont);
        if (printDC.StartDoc(&docinfo)>0)
        {
            if (printDC.StartPage()>0)
            {
                f = fopen("results.txt","rt");
                while (!feof(f))
                {
                    fgets(s,256,f);
                    len = strlen(s);
                    pzText = (LPCSTR)s;
                    if (strcount==2)
                        printDC.TextOutA(500,yPos,pzText,len);
                    else
                        printDC.TextOutA(320,yPos,pzText,len);
                    yPos += cyChar;
                    strcount++;
                    if (strcount==2)
                        printDC.SelectObject(&myFont2);
                    else if (strcount==3)
                        printDC.SelectObject(&myFont);
                }
                fclose(f);
                printDC.EndPage();
            }
            printDC.EndDoc();
        }
        printDC.SelectObject(savedFont);
        printDC.Detach();
    }
    //CDialogEx::OnOK(); 
}

Как сделать так, чтобы печать правильно шла и в том случае, когда файл results.txt имеет две страницы?
erslgoeirjh вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Многостраничный отчет в QReport Milishka БД в Delphi 3 13.05.2016 09:40
Многостраничный отчет в Worde(Excele) из Access karbofosss Фриланс 2 01.10.2012 19:42
Delphi 7 и Fast Report многостраничный отчет tarakan1983 БД в Delphi 3 09.04.2010 14:58
Многостраничный текстовый редактор asko Помощь студентам 3 03.03.2010 11:27
Многостраничный блокнот, как это реализовать dr.Chas Общие вопросы Delphi 7 22.04.2008 21:01


11:01.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru