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

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

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Общие вопросы .NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.03.2010, 12:25   #1
Linore
Пользователь
 
Регистрация: 18.01.2010
Сообщений: 95
По умолчанию Изменение шрифта при печати

Здравствуйте,я не знаю ка изменить шритфт при печати
Помогите пожалуйста вот мой код
Код:
  private void button3_Click(object sender, EventArgs e)
        {
            Form1 frm1 = (Form1)Owner;
            frm1.path = Application.StartupPath + "/" + "Проверка_ЦДУ18_" + DateTime.Now.ToShortDateString() + "_" + DateTime.Now.Hour.ToString() + "." + DateTime.Now.Minute.ToString() + ".txt";                     //"C:/Dannii.txt";
            frm1.sw = new StreamWriter(frm1.path);
            for (int i = 0; i < frm1.listBox1.Items.Count; i++)
            {

                frm1.sw.WriteLine(frm1.listBox1.Items[i].ToString());
            }
            frm1.sw.Close();
            var printer = new System.Diagnostics.Process();
            
            printer.StartInfo.FileName = frm1.path;
            printer.StartInfo.UseShellExecute = true;
            printer.StartInfo.Verb = "print";
            printer.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Minimized;
            printer.Start();
            Close();
            frm1.Close();
        }

Последний раз редактировалось Sazary; 04.03.2010 в 16:34.
Linore вне форума Ответить с цитированием
Старый 09.03.2010, 16:16   #2
Linore
Пользователь
 
Регистрация: 18.01.2010
Сообщений: 95
По умолчанию Одно проблоемма решилась

как напечатать нужным шрифтом я сделала
вот код
System.IO.StreamReader fileToPrint;
System.Drawing.Font printFont;
private void button3_Click(object sender, EventArgs e)
{
Form1 frm1 = (Form1)Owner;
frm1.path = Application.StartupPath + "/" + "Проверка" + DateTime.Now.ToShortDateString() + "_" + DateTime.Now.Hour.ToString() + "." + DateTime.Now.Minute.ToString() + ".txt";
frm1.sw = new StreamWriter(frm1.path);
for (int i = 0; i < frm1.listBox1.Items.Count; i++)
{

frm1.sw.WriteLine(frm1.listBox1.Ite ms[i].ToString());


}
frm1.sw.Close();

// string printPath = System.Environment.GetFolderPath(En vironment.SpecialFolder.Desktop);
string text = ( "/Проверка" + DateTime.Now.ToShortDateString() + "_" + DateTime.Now.Hour.ToString() + "." + DateTime.Now.Minute.ToString() + ".txt");
fileToPrint = new StreamReader(Application.StartupPat h + @text);

printFont = new System.Drawing.Font("Arial", 8);

PrintDocument pd = new PrintDocument();
pd.PrintPage += new PrintPageEventHandler(this.printDoc ument1_PrintPage);
pd.Print();
fileToPrint.Close();
frm1.Close();
// System.Drawing.Font.FromHfont

}

private void printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEv entArgs e)
{
Form1 frm1 = (Form1)Owner;
float yPos = 0f;
int count = 0;
float leftMargin = e.MarginBounds.Left;
float topMargin = e.MarginBounds.Top;
string line = null;
float linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics);
while (count < linesPerPage)
{

line = fileToPrint.ReadLine();
if (line == null)
{
break;
}
yPos = topMargin + count * printFont.GetHeight(e.Graphics);
e.Graphics.DrawString(line, printFont, Brushes.Black, topMargin, yPos, new StringFormat());//
count++;
}
if (line != null)
{
e.HasMorePages = true;
}
}
Linore вне форума Ответить с цитированием
Старый 09.03.2010, 16:17   #3
Linore
Пользователь
 
Регистрация: 18.01.2010
Сообщений: 95
По умолчанию

Но теперь другая при печати не воспринимает табуляции
как с этим бороться?
Linore вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение размера шрифта на шаг Diego__ Microsoft Office Word 8 16.12.2009 18:02
Изменение шрифта в списке Vill Общие вопросы Delphi 1 05.12.2009 01:08
Rave Reports изменение шрифта MAcK Общие вопросы Delphi 1 20.10.2009 15:47
Изменение размера шрифта Nando Microsoft Office Excel 4 07.03.2009 16:45
Изменение шрифта отдельных символов Melevir Помощь студентам 1 13.09.2008 14:52