| bas02 |
|---|
| чччД |
|---|
bas02,
1. В ole-контейнер ты не pdf документ вставляешь, а документ конкретного ole - сервера.
2. Импортируй библиотеку типов этого сервера, да посмотри доступные методы. |
импортировал
если работать через библиотеку то там есть возможность менять размер и печатать несихронно
но скопировать битмап я не могу чтоб напечатать синхронно уже из него
а в ole контейнере если делать то там размер маленький и не растягивается, но скопировать битмап можно, но кажество от этого теряется вобщем куда не ткнись везде жопа |
кароче такая библиотека, по мне так она обрезанная, еще при печати спрашивает хотите ли вы действительнопечатать:
TAcroPDF = class(TOleControl)
private
FOnError: TNotifyEvent;
FOnMessage: TNotifyEvent;
FIntf: IAcroAXDocShim;
function GetControlInterface: IAcroAXDocShim;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_messageHandler: OleVariant;
procedure Set_messageHandler(pVarOut: OleVariant);
public
function LoadFile(const fileName: WideString): WordBool;
procedure setShowToolbar(On_: WordBool);
procedure gotoFirstPage;
procedure gotoLastPage;
procedure gotoNextPage;
procedure gotoPreviousPage;
procedure setCurrentPage(n: Integer);
procedure goForwardStack;
procedure goBackwardStack;
procedure setPageMode(const pageMode: WideString);
procedure setLayoutMode(const layoutMode: WideString);
procedure setNamedDest(const namedDest: WideString);
procedure Print;
procedure printWithDialog;
procedure setZoom(percent: Single);
procedure setZoomScroll(percent: Single; left: Single; top: Single);
procedure setView(const viewMode: WideString);
procedure setViewScroll(const viewMode: WideString; offset: Single);
procedure setViewRect(left: Single; top: Single; width: Single; height: Single);
procedure printPages(from: Integer; to_: Integer);
procedure printPagesFit(from: Integer; to_: Integer; shrinkToFit: WordBool);
procedure printAll;
procedure printAllFit(shrinkToFit: WordBool);
procedure setShowScrollbars(On_: WordBool);
function GetVersions: OleVariant;
procedure setCurrentHightlight(a: Integer; b: Integer; c: Integer; d: Integer);
procedure setCurrentHighlight(a: Integer; b: Integer; c: Integer; d: Integer);
procedure postMessage(strArray: OleVariant);
procedure execCommand(strArray: OleVariant);
property ControlInterface: IAcroAXDocShim read GetControlInterface;
property DefaultInterface: IAcroAXDocShim read GetControlInterface;
property messageHandler: OleVariant index 30 read GetOleVariantProp write SetOleVariantProp;
published
property TabStop;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property src: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;
property OnError: TNotifyEvent read FOnError write FOnError;
property OnMessage: TNotifyEvent read FOnMessage write FOnMessage;
end;