ParentWindowでプロパティの値が不正と表示される

このトピックには2件の返信、1人の参加者があり、最後にヨシダにより2年、 11ヶ月前に更新されました。

3件の投稿を表示中 - 1 - 3件目 (全3件中)

投稿者

投稿

2023年11月13日 1:48 PM #2756 返信

ヨシダ

ゲスト

お世話になります。
ＶＢ6でプレビュー処理で ParentWindow = Picture1.hWnd
の箇所でプロパティの値が不正と表示されてしまいます。


        '// プレビュー命令
        
        BeginPrinterSetting False
        
        Set hWRReportPreview = WR3AXCL1.CreatePreview()
        
        WK_プリンタボタン表示 = True
        
        '// プレビュー表示時の表示レイヤ
        hWRReportPreview.PreviewLayer1 = True
        hWRReportPreview.PreviewLayer2 = True
        hWRReportPreview.PreviewLayer3 = False
        hWRReportPreview.PreviewLayer4 = False
        hWRReportPreview.PreviewLayer5 = False
        hWRReportPreview.PreviewScale = 200
        
        
        '// プレビューのみ
        hWRReportPreview.ToolBarItems = wrPREVTOOLITEM_TOPPAGE + wrPREVTOOLITEM_PREVPAGE + wrPREVTOOLITEM_NEXTPAGE + wrPREVTOOLITEM_BOTTOMPAGE
        
'        hWRReportPreview.MinWindow = True
        
        If Len(Me.Caption) = 0 Then
            hWRReportPreview.WindowCaption = ""
        Else
            hWRReportPreview.WindowCaption = Me.Caption
        End If
        
        If WK_見出しボタン表示 Then
            hWRReportPreview.LabelTreeWindow = True
        Else
            hWRReportPreview.LabelTreeWindow = False
        End If
        
        hWRReportPreview.PreviewMode = wrPREVDSPMODE_SINGLE
        
        hWRReportPreview.EnableMouseScale = True
        
'        hWRReportPreview.FormatReport hWRReport　'＜－－ここでエラー
        
        hWRReportPreview.ParentWindow = Picture1.hWnd
        
        hWRReportPreview.OpenPreview wrPREVIEWMODE_CHILD
        hWRReportPreview.ToolBarWindow = True

2023年11月13日 2:25 PM #2759 返信