|
|
Postada em 02/07/2013 21:08 hs
Estou precisando gerar relatórios do meu banco de dados e não tenho o cristal report nem outro programa instalado no meu VB (versão 6.0). A saída que eu achei foi o comando printer, porém todo comando que coloco o Printer, dá erro. Tenho que acrescentar algum componente ou referência pra esse comando funcionar? Sei que o problema é com ele, pois quando direciono o mesmo comando para um picturebox, por exemplo, dá certo.
Ex: No comando Printer.Print Tab(10); "matricula"; aparece o erro runtime-error 482.
Quando substituo o Printer por painel, que é um PictureBox que eu criei, dá certo, e os dados aparecem nesse painel. Alguém sabe como resolver isso?
|
|
|
|
|
|
jongle
|
CAPANEMA
PA - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 05/07/2013 14:23 hs
aqui vai o comando:
Set Printer = Printers(Combo1.ListIndex)
Printer.FontBold = False
Printer.FontItalic = False
Printer.FontName = "Arial"
Printer.FontSize = 10
Printer.PaintPicture Image1.Picture, 300, 300, 4800, 1200
Printer.Print " "
Printer.Print " "
Printer.Print Tab(60); EMP_FANTA
Printer.Print Tab(60); "CNPJ: " & CNPJ & " - Insc. Est: " & ESC_EST_EMIT
Printer.Print Tab(60); END_EMP & "-" & BAIRR
Printer.Print Tab(60); "Fone:" & TELE & "-" & CIDAD & " " & UF
Printer.Print ""
Printer.FontSize = 20
Printer.FontBold = True
Printer.Print Tab(25); "R E C I B O"
Printer.FontSize = 13
Printer.Print Tab(65); "R$ " & Text15
Printer.FontSize = 12
Printer.FontBold = False
Printer.Print ""
Printer.Print ""
Printer.Print ""
Printer.FontSize = 9
Printer.Print Tab(55); "____________________________"
Printer.FontSize = 11
Assin = Len(Text18.Text)
Assin = (110 - Assin) / 2
Printer.Print Tab(Assin); Text18
Printer.EndDoc
|
|
|
|
|
|
Postada em 05/07/2013 18:20 hs
Valeu Jongle. Vou testar na segunda, mas acho que estou com o erro mais infantil do mundo. Estou fazendo isso em casa e minha impressora tá quebrada. Vou continuar na segunda, no trabalho, com uma impressora válida ligada e testar lá. É bem provável que vá funcionar. Quero exatamente assim como você postou, posicionando o texto onde quero, mudando fonte, tamanho, etc...
|
|
|
|
|
