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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.09.2014, 20:28   #1
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию печать ценника на а4

Здравствуйте, есть типизированный файл из наименования товара, модели и цены, отображенный в гриде, по дбклику отправляется позиция записи, как вывести ее на печать в виде:

---------------------------------
Имя. Имя
Цена цена
Стоимость. Стоимость
----------------------------------

И так чтоб был заполнен весь лист а4? Принтер-по умолчанию настроенный в системе
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 12.09.2014, 20:48   #2
Foreseen
Техножрец
Форумчанин
 
Аватар для Foreseen
 
Регистрация: 04.07.2014
Сообщений: 289
По умолчанию

Формируете строки, передаете, как параметр в TextOut и все. И в каком смысле на весь лист? Речь про масштаб?
— Двери есть везде. Просто нужно знать, как в них войти.
Foreseen вне форума Ответить с цитированием
Старый 12.09.2014, 20:51   #3
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

А не многоват ли будет расход краски на такую печать? 200 таких "листков" и считай придется тратить 3000, а может и более, на катриджы для принтера.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 12.09.2014, 20:53   #4
Foreseen
Техножрец
Форумчанин
 
Аватар для Foreseen
 
Регистрация: 04.07.2014
Сообщений: 289
По умолчанию

Цитата:
Сообщение от саша40 Посмотреть сообщение
А не многоват ли будет расход краски на такую печать? 200 таких "листков" и считай придется тратить 3000, а может и более, на катриджы для принтера.
В таком случае стоимость ценников будет входить в цену товара
— Двери есть везде. Просто нужно знать, как в них войти.
Foreseen вне форума Ответить с цитированием
Старый 12.09.2014, 21:02   #5
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Цитата:
Сообщение от Foreseen Посмотреть сообщение
В таком случае стоимость ценников будет входить в цену товара
Согласен.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 12.09.2014, 21:56   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
И так чтоб был заполнен весь лист а4?
Т.е. тебе нужен просто шаблон? Ну нарисуй в Ворде и печатай сколько хош.
Или в Экзеле - что надежнее. Ценник это все равно почти таблица. Понадобится ШКИ или какие вычислимые данные - VBA поможет, напишешь скриптик.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.09.2014, 22:40   #7
Алексей_2012
t45t
Участник клуба
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Сообщений: 1,849
По умолчанию

Ребят, еще такой момент, видел ссыль где-то на форуме, что в грид, в первую колонку возможно вписать чекбокс, то есть в каждую ячейку первого столбца, можете дать ссыль? А далее распечатывпются только те ценники, в которых стоит галочка
from dark to light)
Алексей_2012 вне форума Ответить с цитированием
Старый 12.09.2014, 22:49   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А CheckListBox для этого не лучше подходит?
Код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
      aRect: TRect; aState: TGridDrawState);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer; cb:TCheckBox;
begin
 with StringGrid1 do
  for i:=0 to RowCount-1 do begin
    cb:=TCheckBox.Create(StringGrid1);
    cb.Parent:=StringGrid1;
    cb.Tag:=i;
    Objects[0,i]:=cb;
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
  if aCol<>1 then Exit;
  with TCheckBox(TStringGrid(Sender).Objects[0,aRow]) do begin
    Top:=aRect.Top; Left:=aRect.Left;
    Show;
  end;
end;

end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.09.2014, 23:22   #9
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

Цитата:
И так чтоб был заполнен весь лист а4?
Бред наивысшей точности. Чековая лента для этого придумана, её ширина задается исходя из размеров барабана или ширины текста, текст на ней и печатается
Человек_Борща вне форума Ответить с цитированием
Старый 13.09.2014, 08:19   #10
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Человек_Борща, а какое отношение чековая лента имеет к ценнику?! (если что, это это такие маленькие бумажечки, которые закрепляются на полках под товаром и на которых указана наименование, характеристика и стоимость единицы данного товара).

Алексей_2012, а почему типизированный файл, чем БД не угодила?
В сторону использования FastReport не смотрели? Удобнейший компонент для формирования всяческих отчётов!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Печать adidas_pro Общие вопросы Delphi 4 20.05.2013 14:14
N-up печать nusik Win Api 0 03.12.2010 00:33
Печать MSD Помощь студентам 3 07.06.2010 12:48
Печать <<>>KaRaPuz<<>> Общие вопросы Delphi 3 31.05.2008 20:59