Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Есть текстовой файл 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Многостраничный отчет в QReport Milishka БД в Delphi 3 13.05.2016 08: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 10:27
Многостраничный блокнот, как это реализовать dr.Chas Общие вопросы Delphi 7 22.04.2008 21:01