Печать книг по программированию в домашних условиях

Ужас как сложно у вас всё… XnView берем или nconvert, конвертируем в BW в BMP (см. ниже почему).

Для убирания косяков делаем простую прогу (писалось за 2-а часа до экзамена (можете хамить)), и 5 лет назад):

И всё.

procedure TForm1.Button3Click(Sender: TObject);
var i,j: integer;
ts: integer;
loop: integer;

sr: TSearchRec;
begin

if FindFirst('*.bmp',faAnyFile, sr) = 0 then

begin
repeat

if sr.Attr and faDirectory = faDirectory then continue;
if (sr.name = '.') or (sr.name ='..') then continue;

try
Image1.Picture.LoadFromFile(sr.Name);
except
continue;
end;

for loop := 0 to 2 do
begin

for i:= 1 to Image1.Picture.Width-1 do
begin
for j:=1 to Image1.Picture.Height-1 do
begin

ts := 0;
if Image1.Picture.Bitmap.Canvas.Pixels[i-1,j-1] = clBlack then inc(ts);
if Image1.Picture.Bitmap.Canvas.Pixels[i,j-1] = clBlack then inc(ts);
if Image1.Picture.Bitmap.Canvas.Pixels[i+1,j-1] = clBlack then inc(ts);

if Image1.Picture.Bitmap.Canvas.Pixels[i-1,j+1] = clBlack then inc(ts);
if Image1.Picture.Bitmap.Canvas.Pixels[i,j+1] = clBlack then inc(ts);
if Image1.Picture.Bitmap.Canvas.Pixels[i+1,j+1] = clBlack then inc(ts);

if Image1.Picture.Bitmap.Canvas.Pixels[i-1,j] = clBlack then inc(ts);
if Image1.Picture.Bitmap.Canvas.Pixels[i+1,j] = clBlack then inc(ts);

if ts<=3 then Image1.Picture.Bitmap.Canvas.Pixels[i,j] := clWhite;

end;
end;

end; //for loop

Image1.Picture.SaveToFile('new-'+sr.Name);

until FindNext(sr) <> 0;
FindClose(sr);
end;

end;

Тогда уже нужно на одном листе все распечатать.
Я как-то видел Войну и Мир, напечатанную на А4. =)

books.ru, ozon, amazon — много лет уже покупаю книги только в интернетах.

Но если бы было много технических книг в электроннов виде, которые нужно читать, то, имхо, Kindle DX — правильный выбор.

Разбираете дырокол, берете пластину с дырками, прижимаете её тисками.