VB에서 Word 문서 인쇄 작업

VB가 워드 문서를 인쇄한 후

VB 연산 워드 코드:

Dim wrdObject를 Word.Application으로

Dim wrdDoc As Word.Document

Set wrdObject = CreateObject("Word.Application")

wrdDoc = wrdObject.Documents.Open("d:/hao/one.doc")으로 설정

wrdObject.Visible = True

wrdObject.Selection.TypeText "이것은 텍스트입니다." '단어에 텍스트 쓰기

wrdDoc.PrintOut

'wrdDoc.ClosePrintPreview '인쇄 미리보기 닫기

wrdDoc.Close '워드 문서 닫기

wrdObject.Quit '워드 애플리케이션 종료

Set wrdDoc = 아무것도 '메모리 해제

Set wrdObject = 아무것도 '메모리 해제

코드는 아마도 단어 문서를 닫지 않고 바로 종료될 것입니다. 위 코드는 인쇄를 실행한 다음 닫습니다

VB를 사용하여 WORD 문서를 호출하는 방법 전문가가 참여해 주세요. 감사합니다!

알고 있지만 마이크로소프트가 암호화 방법을 공개하지 않아서 직접 읽을 수는 없어서 WORD를 호출해서 읽어야 한다

먼저 프로젝트 참조에 Microsoft Word 11.0 개체 라이브러리를 추가하세요

어두운 클립보드 텍스트

Dim Word 워드 프로세싱 시스템 인터페이스 Word.Application으로 'word.application 객체 생성

Dim Word 문서를 Word.Document로

Dim Word 문서 텍스트 As Word.Selection '워드 워드 프로세싱 시스템에서 문서 추가

Set Word 워드 프로세싱 시스템 인터페이스 = CreateObject(＂Word.Application＂) '개체 선택

워드 워드 프로세싱 시스템 인터페이스.Visible = False '워드 워드 프로세싱 시스템 인터페이스인 word.application을 표시하지 않습니다

워드 문서 설정 = 워드 워드 프로세싱 시스템 인터페이스.Documents.Open(파일 경로)

Word 문서 텍스트 설정 = Word 워드 프로세싱 시스템 인터페이스.선택

Word 문서 텍스트.WholeStory

Word 문서 텍스트.복사

Clipboard text = Clipboard.GetText(vbCFText) 'text1에 넣으세요

Text1.Text = 클립보드 텍스트

'Clipboard.SetData 온도

Word 문서.Close '문서 닫기

워드 워드 프로세싱 시스템 인터페이스.Application.Quit

워드 워드 프로세싱 시스템 인터페이스 설정 = 없음 '변수 지우기

Word 문서 텍스트 설정 = 없음

'작동 완료

클립보드를 통해 텍스트를 가져옵니다. 서식이 유지되기 때문입니다(제가 만든 원본)

직접 받는 것도 가능하지만 포맷이 다 없어지니 제 방법이 더 좋을 것 같아요

VB에서 Word 문서를 출력하는 방법

Dim WordApp As Word.Application'단어 응용 프로그램 변수 정의

Dim newDoc As Word.Document'는 워드 문서 변수를 정의합니다

Set WordApp = CreateObject(＂Word.Application＂)'새 단어 애플리케이션 만들기

WordApp.Visible = True

WordApp 사용

Set newDoc = .Documents.Add(App.Path & "Report Sheet Food Water Quality Report.Doc")' 생성된 워드 애플리케이션에서 새로운 워드 문서를 생성합니다

.선택 포함

.GoTo wdGoToBookmark, , , "bh" bh는 단어 문서에서 해당 위치의 태그 이름입니다

.TypeText PrnBID'콘텐츠 쓰기

.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName은 워드 문서에서 해당 위치의 태그 이름입니다

.TypeText PrnGName'콘텐츠 쓰기

MyRS = 없음 설정

끝

' newDoc.SaveAs FileName:=FilePath

끝

' TheError = 429이면 WordApp.Quit

WordApp = 없음 설정

콘텐츠를 작성하고 싶은 미리 만들어진 워드 문서에 라벨을 설정한 후, 프로그램에서 라벨을 찾아 데이터를 작성하세요

위 내용은 VB에서 Word 문서 인쇄 작업의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!