有关打印问题，，急急

[风子啊啊]

各位，求救一下
能不能对指定路径的文件进行打印
如 c:\a.txt 真接打印，，不打开文件的情况下

[BlueDeepOcean]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
h = 1;
TStringList *sl = new TStringList;
sl->LoadFromFile("D:\\Documents and Settings\\Administrator\\桌面\\ct.txt");
TPrinter *p = new TPrinter;

int hh = p->Canvas->TextHeight(sl->Strings[0]);
p->BeginDoc();

for (int i = 0;i < sl->Count;i ++)
{
p->Canvas->TextOutA(2,0 + hh * h,sl->Strings[i]);
h ++;
}

p->EndDoc();
delete p;
p = NULL;
}
//---------------------------------------------------------------------------

[BlueDeepOcean]

h 是一个全局变量，int 型。

[BlueDeepOcean]

还有
delete sl;
sl = NULL;

[风子啊啊]

光是TXT还好解决，，主要是想针对其它文件格式，包括图形的，

[BlueDeepOcean]

如果图形的，就采用TBitmap等相应类的LoadFromFile方法加载文件，之后采用重画即可。

[BlueDeepOcean]

如果其他格式的文件可以采用二进制流的方式，读入，之后处理成像我上面那样子即可。