FLY666

Caro Lazarodm, Muito obrigado pela dica. Vou dar uma verificada nesse link. valeu!!!

Aloha, alguém conhece algum livro ou apostila de Delphi para leigos como eu?... Eu gostaria de um livro q falasse sobre todos os componentes da paleta... Se alguém puder me dar essa dica fico muito agradecido...

Bom mesmo é o Absolute Database da Component Ace... além de uma interface mais amigável, tb pode fazer com q a tabela seja acessada por múltiplos usuários... e é difícil dar trava com ele... eu recomendo...

Porque adicionei a unit Printers. Se entendi bem, você não quer imprimir *o DBGrid* e sim os dados que estão sendo *exibidos* no mesmo. Na verdade os dados estão na tabela que está relacionada ao DBGrid, por isso você pode percorrer toda a tabela mandando imprimir cada registro. Abraços, Graymalkin Pois é... sei q o DBGrid está relaciondado a tabela... então eu tentei usar o seguinte código: procedure TForm1.btnprintClick(Sender: TObject); begin if (PrinterSetupDialog1.execute)and(PrintDialog1.execute) Then Print.ABSTable1; end; Onde ABSTable1 é o nome da minha tabela... eu achei q isso funcionaria e acho tb q seria mais fácil... mas não deu certo... O único jeito de imprimir os dados do DBGrid é imprimindo registro por registro?... achei q pudesse imprimir tudo de forma contínua...

Eu não entendi esse código... porque printer ao invés de print? E como eu faço pra imprimir o DBGrid de forma contínua?

Aloha... consegui refazer o código... desculpem... sou meio newb com o linguagem de programação... e sei q o códgigo abaixo é meio tosco e básico demais... mas não quero nada complicado... só gostaria de imprimir o BDGrid de forma contínua e sem o restante do Form... apenas o BDGrid... ____________________________________________________________________ type TForm1 = class(TForm) ABSTable1: TABSTable; ABSDatabase1: TABSDatabase; DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; btnprint: TBitBtn; PrintDialog1: TPrintDialog; PrinterSetupDialog1: TPrinterSetupDialog; GroupBox1: TGroupBox; GroupBox2: TGroupBox; btnsair: TBitBtn; Bevel1: TBevel; Bevel2: TBevel; Label1: TLabel; Image1: TImage; Image2: TImage; Bevel3: TBevel; Image3: TImage; procedure btnprintClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.btnprintClick(Sender: TObject); begin if (PrinterSetupDialog1.execute)and(PrintDialog1.execute) Then Print; end; end.

Ae Galera... eu ia postar aki o código q estou usando mas aconteceu uma desgraça... não sei porque mas o código sumiu do meu arquivo .pas... Mas mesmo assim eu gostaria de uma resposta... eu não quero imprimir em printscreen... mas um BDGrid de modo contínuo... quando eu refizer o código eu posto outra vez...

Ae galera... desculpem a insistência... mas estou com problemas ao imprimir em um DBGRID... eu uso o comando PRINT mas imprime a tela toda e ainda não imprime o restante da Grade... se alguém puder me ajudar fico muito agradecido...

Aloha!!! Sou novato aki no fórum e me desculpem se já foi postado alguma vez... mas eu preciso saber como imprimir no delphi um DBGrid... quais são os procedimentos para essa operação? PS.: a tabela foi feita no "Absolute Database"... Desde já agradeço a ajuda de vocês...