Fórum printout #371914
02/07/2009
0
Para usar o printout tenho q colocar alguma coisa no USES??
Daia
Curtir tópico
+ 0Posts
02/07/2009
Osocram
ou o que?
Gostei + 0
02/07/2009
Daia
Da seguinte forma:
procedure TfrmDocPreview.btnImprimeClick(Sender: TObject);
var
Background: OleVariant;
Device: array[0..511] of Char;
Driver: array[0..511] of Char;
Port: array[0..511] of Char;
hDevMode: THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDevMode);
// App.DisplayAlerts := wdAlertsNone;
// App.ActivePrinter := Device;
// Background := false;
PrintOut(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
pdfView.PrintDoc;
end;
Gostei + 0
02/07/2009
Lightshine
Lightshine
Gostei + 0
02/07/2009
Daia
Já tem...
Gostei + 0
02/07/2009
Osocram
mas assim os unicos lugares q eu vi PrintOut foram no Oleobj tipo WordApp, ExcelApp
Gostei + 0
02/07/2009
Daia
É q é o seguinte, o problema é q a impressão só sai na impressora padrão, se eu for selecionar outra impressora ele não aceita... Na verdade não fui eu quem desenvolvi isso, foi um colega q não trabalha mais comigo e agora deu esse problema.... e essa parte do código onde tinha o PrintOut estava comentada e essa parte tb: Printer.GetPrinter(Device, Driver, Port, hDevMode);
achei q isso fizesse com que fosse definida a impressora escolhida...
não sei como resolver...
Gostei + 0
02/07/2009
Osocram
tenta comentar o PrintOut
deixa apenas o Printer.GetPrinter(Device, Driver, Port, hDevMode);
se der o erro.... veja em qual linha aconteceu o erro. E passe qual o erro deu, e tbm qual o tipo do objeto pdfView;
Pois eu acho q o prob esta neste objeto.
Gostei + 0
03/07/2009
Daia
Pode ser q seja problema com o objeto... mas como vou resolver...
Obrigada!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)