vb ÈçºÎ×ö´òÓ¡
vb ÈçºÎ×ö報±í´òÓ¡
ʹÓà Printer ¶ÔÏó
Óм¸ÖÖ·½·¨¿ÉÔÚ Printer ¶ÔÏóÖзÅÖÃÎı¾ºÍͼÐΡ£ÎªÁËʹÓà Printer ¶ÔÏó½øÐдòÓ¡£¬Ó¦°´ÒÔÏÂÈÎÒ»·½Ê½½øÐУº
Èç¹ûҪʹÓÃȱʡ´òÓ¡»úÒÔÍâµÄ´òÓ¡»ú´òÓ¡£¬ÐèÔÚ Printers ¼¯ºÏÖÐÖ¸¶¨´òÓ¡»ú¸ø Printer ¶ÔÏó¡£
½«Îı¾ºÍͼÐÎ×°Èë Printer ¶ÔÏó¡£
Óà NewPage ºÍ EndDoc ·½·¨´òÓ¡ Printer ¶ÔÏóµÄÄÚÈÝ¡£
{{
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......