filename$ = '<SrcDir>\Print.html'
empty$ = ''
rt = StrToFile(filename$,empty$,FALSE,TRUE)
*****************************
line$[1] = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
line$[2] = '<html>'
line$[3] = '<head>'
line$[4] = '<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE8">'
line$[5] = '<meta http-equiv="Content-Language" content="fa">'
line$[6] = '<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">'
line$[7] = '<title>Print List</title>'
line$[8] = '<style type="text/css">body{ background-color: #FFFFFF; color: #000000;}'
line$[9] = '</style>'
line$[10] = '</head>'
line$[11] = '<body>'
line$[12] = '<div id="wb_Image1" style="margin:0;padding:0;position:absolute;left:0px;top:0px;width:481px;height:227px;text-align:left;z-index:1;">'
line$[13] = '<img src="images/BGIMG.bmp" id="Image1" alt="" border="0" style="width:481px;height:227px;"></div>'
line$[14] = '<div id="wb_Text1" style="margin:0;padding:0;position:absolute;left:149px;top:12px;width:235px;height:16px;text-align:right;z-index:2;">'
line$[15] = '<font style="font-size:13px" color="#000000" face="Tahoma">'+Numberozv$+'</font></div>'
line$[16] = '<div id="wb_Text2" style="margin:0;padding:0;position:absolute;left:150px;top:51px;width:235px;height:16px;text-align:right;z-index:3;">'
line$[17] = '<font style="font-size:13px" color="#000000" face="Tahoma">'+Name$+'</font></div>'
line$[18] = '<div id="wb_Text3" style="margin:0;padding:0;position:absolute;left:150px;top:87px;width:235px;height:16px;text-align:right;z-index:4;">'
line$[19] = '<font style="font-size:13px" color="#000000" face="Tahoma">'+LName$+'</font></div>'
line$[20] = '<div id="wb_Text4" style="margin:0;padding:0;position:absolute;left:150px;top:122px;width:235px;height:16px;text-align:right;z-index:5;">'
line$[21] = '<font style="font-size:13px" color="#000000" face="Tahoma">'+Data$+'</font></div>'
line$[22] = '<div id="wb_Text5" style="margin:0;padding:0;position:absolute;left:117px;top:160px;width:268px;height:16px;text-align:right;z-index:6;">'
line$[23] = '<font style="font-size:13px" color="#000000" face="Tahoma">'+Tel$+'</font></div>'
line$[24] = '<div id="wb_Text6" style="margin:0;padding:0;position:absolute;left:4px;top:197px;width:381px;height:16px;text-align:right;z-index:7;">'
line$[25] = '<font style="font-size:13px" color="#000000" face="Tahoma">'+Adres$+'</font></div>'
line$[26] = '<div id="wb_Image2" style="margin:0;padding:0;position:absolute;left:10px;top:29px;width:122px;height:110px;text-align:left;z-index:8;">'
line$[27] = '<img src="'+'Picture'+CHR(92)+EImage$+'" id="Image2" alt="" border="0" style="width:122px;height:110px;"></div>'
line$[28] = '</body>'
line$[29] = '</html>'
For i=1 To 29
drt = StrToFile(filename$,line$[i],TRUE,TRUE)
Next i
FileExist("filename$","isThere")
If (isThere = 1) Then
Browser("Browser","filename$")
Browser("Browser","Print")
Else
Message("Nothing To Print!","")
Return()
End
ممنون ميشم اگه كمكم كنيد
