如何显示Windows照片打印向导?

本文介绍了如何显示Windows照片打印向导?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我找到了VB函数 ShowPhotoPrintingWizard :

I found the VB function ShowPhotoPrintingWizard:

CommonDialog.ShowPhotoPrintingWizard( _
  ByVal Files As VARIANT _
) As HRESULT

在Delphi中如何称呼它或获得等效功能?我正在使用Delphi 2010.

How do I call that or get equivalent functionality in Delphi? I'm using Delphi 2010.

推荐答案

我认为单个文件可能是这种方式:

I think it might be this way for a single file:

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  CommDlg: OleVariant;
begin
  CommDlg := CreateOleObject('WIA.CommonDialog');
  CommDlg.ShowPhotoPrintingWizard('d:\Image.jpg');
end;

或类似的多个文件:

procedure TForm1.Button1Click(Sender: TObject);
var
  Files: OleVariant;
  CommDlg: OleVariant;
begin
  CommDlg := CreateOleObject('WIA.CommonDialog');
  Files := CreateOleObject('WIA.Vector');
  Files.Add('d:\Image 1.jpg');
  Files.Add('d:\Image 2.jpg');
  CommDlg.ShowPhotoPrintingWizard(Files);
end;

这篇关于如何显示Windows照片打印向导?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！