文書番号: 401621
最終更新日: 1997/10/20
Option Explicit Dim i As Integer Sub MyPrintDialog() Dim point As Variant Dim sheetname As String Dim refs As String Do i = 0 DialogSheets("Dialog1").Show If i = 0 Then Exit Do End If point = Application.Search("!", DialogSheets("Dialog1") _ .EditBoxes("エディット 4").Text) If IsError(point) Then sheetname = ActiveSheet.Name refs = DialogSheets("Dialog1") _ .EditBoxes("エディット 4").Text Else sheetname = Left(DialogSheets("Dialog1") _ .EditBoxes("エディット 4").Text, point - 1) refs = Mid(DialogSheets("Dialog1") _ .EditBoxes("エディット 4").Text, point + 1) End If Worksheets(sheetname).PageSetup.PrintArea = refs Worksheets(sheetname).PrintOut Loop While True End Sub Sub 印刷_Click() i = 1 End Sub Sub フォーム 1_Show() DialogSheets("Dialog1").Buttons("印刷").DefaultButton = True DialogSheets("Dialog1").Buttons("印刷").DismissButton = True DialogSheets("Dialog1").Buttons("終了").CancelButton = True DialogSheets("Dialog1").EditBoxes("エディット 4").Text = "" DialogSheets("Dialog1").EditBoxes("エディット 4") _ .InputType = xlReference DialogSheets("Dialog1").Focus = "エディット 4" End Sub
Keywords: KBHOWTO KB401621
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch