Article View: cn.bbs.comp.program
Article #514��ν��VB��Grid�ؼ��Ĵ�ӡ����
From: ����
Date: Thu, 30 Jul 1998 00:00
Date: Thu, 30 Jul 1998 00:00
399 lines
15474 bytes
15474 bytes
����Grid�ؼ���Visual Basic���ؼ�֮һ����VB3.0
��VB5.0���иÿؼ���Ҳ��VB��������ϲ���Ĺ���֮һ��
��������Ա����ʽ��ʾ�������ݣ��ر�����ݿ�Ӧ
�ã�ֱ�Ӱ�����ʾ�����ݿ���Ϣ��Ȼ�����в���
����Gridû�б༭�ʹ�ӡ���ܣ������е�λ�ò������
�������������Ÿ�Grid��������Щ���ܣ�ʹ֮������
�������ܸ�ǿ���������Ľ���Դ������ֻ��
������д��Դ����ʹ���Grid���д�ӡ���ܡ��ó���
������HP5/100 Window 95��������VB5.0����ͨ��
������Grid �ؼ����Ӵ�ӡ���������֣�
����(1)��ֱ�Ӵ�ӡ�ؼ��ķ�����
����(2)��ͨ��printer��ʵ�ִ�ӡ���ܣ�
����(3)��ͨ�����MS��Word��MS��Excel ��ʵ�ִ�ӡ��
�������ȣ���һ��Ӧ�ã���FORM1������DATA�ؼ�
DATA1,��DATA1��CONNECT������ΪdBASE ���ٰ�
DATABASENAME������ΪD:\PJXM.DBF��Ȼ������FORM1����
��MSFLEXGRID�ռ�GRID1������GRID1��DATASOURCE������
ΪDATA1��������ݿ�PJXM.DBF����Ϣ�ͻ���GRID1����ʾ
������
��������һ��ֱ�Ӵ�ӡ���巨����FORM1���������ť
(command)��CAPTION������Ϊֱ�Ӵ�ӡ����д�����б�
�룺
���� Sub command��click
���� Form1.printform
���� End sub
���������ͨ���ӡ����FORM1�ķ�����GRID1����ݴ�ӡ
�������ź�����ֻ�ܴ�ӡGRID1����ʾ����ݲ��֣���ʾ
��������������ӡ�����ִ�ӡ����������ĻӲ��������
��ؼ�Ҳ��ӡ�������Ҳ������Ŀ�������ȡ�
������������ͨ��PRINTERʵ�ִ�ӡ�����ַ����������
ӡ���ť(command1)������(prnt1)����ʵ�ִ�ӡ��
�ܣ�д��������룬�����ԼӸĶ���д�ɱ��ĺ�����
�̡�
����Function prnt1 (x As Integer, y As Integer,
font As Single, txt As String)
���� printer.CurrentX = x
���� printer.CurrentY = y
���� printer.FontBold = False
���� printer.FontSize = font
���� printer.Print txt
����End Function
���� Sub command1��click
����Dim fnt As Single
����Dim pp as integer
����Pp=0�����ÿ�ʼҳ��0
����Dim stry,strx,strx1,stry1,linw,page1,p As
Integer
����Static a(8) As Integer�䶨���ӡ������
����ss�� = ���ڲ�����������ʵ��� �䶨���ͷ
����kan = 0
����For i = 0 To 8
���� a(i) = 1500�䶨��ÿ�п�
���� kan = kan �� a(i)��������ܿ��
����Next
����page1 = 50�䶨��ÿҳ����
����strx = 200
����strx1 = 200�䶨��X������ʼλ��
����stry = 1400
����stry1 = 1400�䶨��Y������ʼλ��
����linw = 240�䶨���п�
����fnt = 8�䶨�������С
����printer.fontname = �������䶨������
����dd = prnt1(4000, 700, 18, ss��)���ӡ����
����printer.Line (strx �� 50, stry �� 30)��(strx
�� kan �� 10, stry �� 30)
����For j = 0 To gridrow �� 1��gridrowΪ��Ҫ��ӡ��
����
���� grid1.row = j
���� strx = strx1
���� printer.Line (strx �� 50, stry �� 30)��(strx
�� kan �� 10, stry �� 30)
���� p = p �� 1
���� For i = 0 To 8
���� grid1.col = i
���� dd = prnt1(strx, stry, fnt, grid1.text)
���� strx = strx �� a(i)
���� Next
���� If p > page1 Then��next page
���� p = 0
���� strx = strx1
���� ��line last line
���� printer.Line (strx �� 50, stry �� linw)��
(strx �� kan �� 10, stry �� linw)
���� stry = stry1
���� ��line col
���� For n = 0 To 8
���� printer.Line (strx �� 30, stry �� 30)��(strx
�� 30, stry �� (page1 �� 2) �� linw)
���� strx = strx �� a(n)
���� Next
���� printer.Line (strx �� 30, stry �� 30)��(strx
�� 30, stry �� (page1 �� 2) �� linw)
���� pp=pp��1
���� foot��=��� �士cstr(pp)���� ҳ��
���� dd = prnt1(strx �� 30��1000, stry �� (page1
�� 2) �� linw��100, 10, foot��)���ӡҳ����
���� printer.NewPage��next page
���� dd = prnt1(4000, 700, 18, ss��) ���ӡ����
���� strx = strx1
���� stry = stry1
���� printer.Line (strx �� 50, stry �� 30)��(strx
�� kan �� 10, stry �� 30)�� print first row
���� Else
���� stry = stry �� linw
���� End If
����Next
���� st = stry
���� If p < page1 Then �������ҳʣ�����
���� For o = p To page1 �� 1
���� strx = strx1
���� printer.Line (strx �� 50, stry �� 30)��(strx
�� kan �� 10, stry �� 30)
���� stry = stry �� linw
���� Next
����End If
���� stry = stry1
���� strx = strx1
���� stry = stry1 ��line col
���� For n = 0 To 8
���� printer.Line (strx �� 30, stry �� 30)��(strx
�� 30, stry �� (page1 �� 2) �� linw)
���� strx = strx �� a(n)
���� Next
���� printer.Line (strx �� 30, stry �� 30)��(strx
�� 30, stry �� (page1 �� 2) �� linw)
���� pp=pp��1
���� foot��=��� �士cstr(pp)���� ҳ��
���� dd = prnt1(strx �� 30��1000, stry �� (page1
�� 2) �� linw��100, 10, foot��)���ӡҳ����
���� printer.EndDoc���ӡ����
����Endsub
�������ַ���ͨ�����ı�̿��Է���ص������塢��
�͡����Ρ�ҳ�桢ֽ�Ŵ�С�ȡ��ɴ�ӡ���Ƚ������Ч
�������ļ������װ��MICROSOFT WORD��MICRO
EXCEL����ʵ��÷����ǰ�GRID�ı��ͨ��VB���͵�
MICROSOFT WORD��MICRO EXCEL�����MICROSOFT WORD��
MICRO EXCEL�������Ϳ��Գ������MICROSOFT WORD
��MICRO EXCEL�Ĵ�ӡ���༭���ܴ�ӡ��������Ľ��
������һ���ܡ�
����������ͨ�����MICROSOFT WORD����ӡ
����1����declaration ���:
���� Dim msword As Object
����2�������ӡ���ť(command2)��CAPTION��Ϊ����
��WORD���д��������룬Private Sub command2��
Click()
���� screen.MousePointer = 11
���� Set msword = CreateObject(��word.basic��)
���� Dim AppID, ReturnValue
����appID = Shell(��d:\office97\office\WINWORD.EXE
��, 1) �� Run Microsoft Word.
���� msword.AppActivate ��Microsoft Word��
���� ��msword.AppActivate ��Microsoft Word��, 1
���� full
���� Screen.MousePointer = 0
����End Sub
����3��д�����¹��full()
����Sub full()
���� Dim i As Integer, j As Integer, col As
Integer, row As Integer
���� Dim cellcontent As String
���� Me.Hide
���� cols = 4���������
���� row = gridrow���ӡ�������
���� msword.filenewdefault
���� msword.MsgBox �����ڽ���MS��WORD���?����
��.......��, ���, ��1
���� msword.leftpara
���� msword.screenupdating 0
���� msword.tableinserttable , col, row, , , 16,
167
���� msword.startofdocument
����for j=0 to gridrow���������
���� grid1.row=j
���� For i = 1 To cols
���� Grid1.col=i
����If IsNull(grid1.text) Then
����cellcontent�� = ���
���� Else
����cellcontent�� = grid1.text
���� End If
���� msword.Insert cellcontent��
���� msword.nextcell
���� Next i
����Next j
���� msword.tabledeleterow
���� msword.startofdocument
���� msword.tableselectrow
���� msword.tableheadings 1
���� msword.centerpara
���� ��msword.startdocument
���� msword.screenrefresh
���� msword.screenupdating 1
���� msword.MsgBox ������, ���, ��1
���� Me.Show
����End Sub
���������ģ�ͨ���͵�MICROSOFT EXCELʵ�ֱ���ӡ
���������ӡ���ť(command3)��CAPTION��Ϊ�����
EXCEL�����������
����Private Sub command3��Click()
���� Dim i As Integer
���� Dim j As Integer
���� Dim xlApp As Excel.Application
���� Dim xlBook As Excel.Workbook
���� Dim xlSheet As Excel.Worksheet
���� Set xlApp = CreateObject(��Excel.Application
��)
���� xlApp.Visible = True
���� ��Set xlBook = xlApp.Workbooks.Add
���� ��On Error Resume Next
���� Set xlBook = xlApp.Workbooks.Add ��Open(��
d:\text2.xls��)
���� SetxlSheet = xlBook.Worksheets(1)
���� xlSheet.Cells(6, 1) = ��i��
���� For i = 0 To gridrow
���� grid1.Row = i
���� For j = 0 To 6
���� Grid1.Col = j
���� If IsNull(Grid1.Text) = False Then
����xlSheet.Cells(i �� 5, j �� 1) = Grid1.Text
���� End If
���� Next j
���� Next i
����Exit Sub
--
�� ��Դ:��Yat-sen Channel argo.zsu.edu.cn��[FROM: www.ee.zsu.edu.c]
Technical Details
Message-ID:
<3Pg4Xf$tH2@argo.zsu.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,3c8324f236915926,start X-Google-Attributes: gidfc86e,public From: lhh.bbs@argo.zsu.edu.cn (����) Subject: ��ν��VB��Grid�ؼ��Ĵ�ӡ���� Date: 1998/07/30 Message-ID: <3Pg4Xf$tH2@argo.zsu.edu.cn> X-Deja-AN: 376259441 Organization: Yat-sen Channel BBS X-Filename: Programming/M.901778009.A Newsgroups: cn.bbs.comp.program