C#調(diào)用EXCEL實(shí)現(xiàn)門診電子病歷的打印

劉德軍

摘要：該文針對(duì)醫(yī)院信息建設(shè)中門診電子病歷的打印格式問題，通過調(diào)用EXCEL，用最簡(jiǎn)單方法來快速實(shí)現(xiàn)電子病歷的格式化打印功能。

關(guān)鍵詞：c#；EXCEL；電子病歷；打印

中圖分類號(hào)：TP311 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1009-3044（2015）24-0132-02

C# Call EXCEL to Achieve the Electronic Medical Records Of the Printing

LIU De-jun

（Sheyang County People's Hospital Information Branch， Yancheng 224300， China）

Abstract： This paper is aimed at the problem of the electronic medical record in hospital information construction， through calling EXCEL， using the most simple method to achieve the electronic medical records of the format printing function.

Key words： c#； EXCEL； electronic medical record； print

門診病歷是醫(yī)務(wù)人員對(duì)門急診患者疾病的發(fā)生、發(fā)展、轉(zhuǎn)歸，進(jìn)行檢查、診斷、治療等醫(yī)療活動(dòng)過程的按規(guī)定的格式和要求書寫的記錄。我院門診病歷電子化以后，電子病歷的打印功能的實(shí)現(xiàn)勢(shì)在必行。

經(jīng)過對(duì)《病歷書寫規(guī)范》的認(rèn)真研究，發(fā)現(xiàn)電子病歷打印因多種內(nèi)容、格式混合導(dǎo)致存在如下問題：① 病歷行數(shù)不固定；② 打印位置控制復(fù)雜，有的左對(duì)齊，有的右對(duì)齊，有的居中；③ 跨頁(yè)控制復(fù)雜，可能涉及一段文字中間換頁(yè)；④ 字體格式控制；⑤ 如何做好病歷防偽功能。

設(shè)計(jì)之初準(zhǔn)備用C#控制處理打印，具體開發(fā)過程中發(fā)現(xiàn)很多問題，特別是頁(yè)面控制處理起來相當(dāng)復(fù)雜，而且達(dá)不到預(yù)想的效果。因此轉(zhuǎn)變思路，改調(diào)用EXCEL，利用EXCEL的強(qiáng)大編輯和處理功能，解決了上述問題，順利完成了系統(tǒng)的開發(fā)工作。

1 方法簡(jiǎn)介

要解決上述問題，必須實(shí)現(xiàn)以下幾個(gè)功能：

1）按電子病歷格式設(shè)計(jì)好EXCEL文件作為模板（包括字體大小、對(duì)齊方式、自動(dòng)換行、頁(yè)眉頁(yè)腳、頂端標(biāo)題行等）；

2）創(chuàng)建一個(gè)EXCEL進(jìn)程，并加載設(shè)計(jì)好的模板文件；

3）從系統(tǒng)調(diào)出相關(guān)的病歷信息填寫進(jìn)對(duì)應(yīng)單元格；

4）控制EXCEL打印出填寫的內(nèi)容，完成后關(guān)閉創(chuàng)建的EXCEL進(jìn)程。

2 程序?qū)崿F(xiàn)

2.1 準(zhǔn)備工作

1）準(zhǔn)備一張具有防偽底紋標(biāo)志的背景圖片，大小根據(jù)病歷紙大小自行設(shè)置。

2）新建一個(gè)名為“門診電子病歷模板.xlsx”的EXCEL工作簿，只保留sheet1表。具體格式如表1。

3）創(chuàng)建一個(gè)C#Windows窗體應(yīng)用程序。在“解決方案資源管理器”→“引用”右擊→“添加引用”→“.NET”選項(xiàng)卡，選擇組件名稱為“Microsoft.Office.Interop.Excel”，版本號(hào)為“12.0.0.0”。

4）在程序命名空間中添加如下內(nèi)容：

using System；

using System.Collections.Generic；

using System.Text；

using Microsoft.Office.Interop.Excel；

using System.Data；

using System.Windows.Forms；

using System.Collections；

using System.Reflection；

2.2 程序主要代碼

public int OmrPrint（string clinicNo，string id）

{ //clinicNo為病員就診號(hào)， ID為病歷序號(hào)，根據(jù)這兩個(gè)參數(shù)查詢門診基本信息

ClinicRecordPrint.OracleLobData queryBase = new OracleLobData（）；

//根據(jù)病歷ID查詢門診病歷信息

DataSet dsMain = queryBase.DefineDataSet（id）；

//根據(jù)掛號(hào)流水號(hào)查詢?cè)\斷信息

DataSet dsDiag = queryBase.GetClinicDiag（clinicNo）；

DataSet dsOrder = queryBase.GetClinicOrder（clinicNo）；

Microsoft.Office.Interop.Excel.Application app = new Microsoft.Office.Interop.Excel.Application（）；//創(chuàng)建一個(gè)Excel進(jìn)程

app.Visible = false； //不顯示EXCEL界面，顯示可方便調(diào)試

Workbooks wbks = app.Workbooks；

Workbook _wbk = wbks.Add（System.Windows.Forms.Application.StartupPath + @"＼門診電子病歷模板.xlsx"）；//打開電子病歷模板

Worksheet WS1 = （Worksheet）_wbk.Worksheets[1]；//設(shè)置當(dāng)前工作表

if （dsMain.Tables[0].Rows.Count > 0）

{//填寫日期、科室、姓名、性別、病歷號(hào)、主訴、現(xiàn)病史、既往史、過敏史、體檢、輔助檢查、處理意見，dsMain為患者病歷信息記錄集。

WS1.Cells[2， 1] = "日期：" + dsMain.Tables[0].Rows[0]["保存日期"].ToString（） + " " + "科室：" + dsMain.Tables[0].Rows[0]["?？?].ToString（） + " " + "姓名：" + dsMain.Tables[0].Rows[0]["姓名"].ToString（） + " " + "性別：" + dsMain.Tables[0].Rows[0]["性別"].ToString（） + " " + "病歷號(hào)：" + dsMain.Tables[0].Rows[0]["門診號(hào)"].ToString（）；

WS1.Cells[3， 2] = dsMain.Tables[0].Rows[0]["主訴"].ToString（）；

...（略）

WS1.Cells[9， 2] = dsMain.Tables[0].Rows[0]["處理意見"].ToString（）；}

else

{ return -1； }

//填寫患者診斷信息

if （dsDiag.Tables[0].Rows.Count > 0）

{ try

{worksheet1.Cells[10， 2] = "初步診斷："；

int j = 1；

foreach （DataRow dr in dsDiag.Tables[0].Rows）

{if （j == 1）//單條診斷填寫

{ worksheet1.Cells[10， 2] = " 初步診斷：" + dr[0].ToString（）；}

else

{ if （dsDiag.Tables[0].Rows.Count == j）//多條診斷中最后一條追加填寫。

{worksheet1.Cells[10， 2] = " " + （（Microsoft.Office.Interop.Excel.Range）worksheet1.Cells[10， 2]）.Text.ToString（） + " " + dr[0].ToString（）；}

Else //多條診斷中間部分追加填寫并加回車換行

{worksheet1.Cells[10， 2] = " " + （（Microsoft.Office.Interop.Excel.Range）worksheet1.Cells[10， 2]）.Text.ToString（） + " " + dr[0].ToString（） + "＼r＼n"；} }

j++；}}

catch （Exception ee）

{MessageBox.Show（ee.Message）；

//后續(xù)處理：退出和釋放

_wbk.Close（null， null， null）；

wbks.Close（）；

//釋放掉多余的excel進(jìn)程

app.Quit（）；

System.Runtime.InteropServices.Marshal.ReleaseComObject（app）；

app = null； }}

else

{return -1； } }

//填寫醫(yī)生簽名（ordIndex為增加的行）

WS1.Cells[12 + ordIndex， 2] = "醫(yī)生簽名：" + dsMain.Tables[0].Rows[0]["醫(yī)生簽名"].ToString（）；

WS1.Range[WS1.Cells[12 + ordIndex， 2]， WS1.Cells[12 + ordIndex， 2]].HorizontalAlignment = 4；//右對(duì)齊

WS1.Cells.EntireRow.AutoFit（）；//自動(dòng)調(diào)整所有行的行高

//屏蔽掉系統(tǒng)跳出的Alert

app.AlertBeforeOverwriting = false；

app.DisplayAlerts = false；

WS1.PrintOutEx（1， 1， 1， Missing.Value， Missing.Value， Missing.Value， Missing.Value， Missing.Value， Missing.Value）；//打印病歷

//后續(xù)處理：退出和釋放

_wbk.Close（null， null， null）；

wbks.Close（）；

//釋放掉多余的excel進(jìn)程

app.Quit（）；

app = null；

return 1； }

3 結(jié)束語(yǔ)

選擇EXCEL，基于以下幾點(diǎn)考慮：① 可設(shè)置底紋圖片且可打?。虎?可設(shè)置頂端標(biāo)題行；③ 可自動(dòng)調(diào)整行高；④ 模板格式編輯方便。本系統(tǒng)在windows XP，VS2010+office 2007環(huán)境下調(diào)試通過。

參考文獻(xiàn)：

[1] 明日科技，C#從入門到精通[M]. 3版.清華大學(xué)出版社，2012.

[2] Nagel C， Evjen B.C#高級(jí)編程[M]. 李銘.譯. 8版.清華大學(xué)出版社，2013.

[3] Walkenbach J.中文版Excel 2007高級(jí)VBA編程寶典[M]. 馮飛，焦瑜凈，譯.清華大學(xué)出版社，2011.