Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 27/12/2004 17:36 hs
É o seguinte, uso o crystal pra imprimir notas fiscais, e funciona certinho, mas agora o cliente trocou o micro e veio com o windows xp, ja configurei o tamanho do papel no xp, mas na hora de imprimir, vem sempre com o tamanho A4, ai tem que mudar para o papel que foi criado, para enquadrar a nota. Como o crystal tem as funçoes abaixo:
DPL.SortFields(0) = "+{notas.nota}"
DPL.PrinterName = "FX880"
DPL.PrinterPort = "lpt2"
DPL.PrinterDriver = "winspool"
DPL.Destination = 1
DPL.WindowShowPrintSetupBtn = True
DPL.ProgressDialog = False
DPL.Action = 1
DPL.Reset,
sera que também não tem como passar o tamanho do papel ?
se alguém puder ajudar, agradeço.
|
|
|
|
|
|
|
|
Postada em 27/12/2004 21:21 hs
Olá Futura, Cara, usando o controle CrystalReport.ocx eu acho que não dá, mas você pode exibir a caixa de selação de impressora usando o método PrinterSelect do controle. Eu sei que não é isso que você quer, mas o controle CrystalReport.ocx foi "abandonado" pela Seagate, que não incluiu mais nenhum recurso nele. Porém, o CRViewer em conjunto com a biblioteca Crystal Reports Activex Designer Run Time Library permite o uso da propriedade PaperSize: Dim RptApp as CRAXDRT.Application
Dim RptObj as CRAXDRT.Report
Set RptApp = New CRAXDRT.Application
Set RptObj = RptApp.OpenReport(NomeRelatorio) ... RptObj.RecordSelectionFormula = ClausulaDeSelecao ... RptObj.ReadRecords RptObj.PaperSize = crPaperLetter <---Aqui você tem uma lista ampla de papéis CRViewer1.ReportSource = RptObj CRViewer1.ViewReport Veja maiores detalhes no help do Crystal. um abraço, Sandro.
|
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 28/12/2004 09:00 hs
Ok Sandro, além do controle CRViewer, o que mais preciso adicionar, e o que muda em relação ao exemplo acima, se voce puder passar mais detalhado, pois preciso com certa urgencia. Obrigado. |
|
|
|
|
|
Postada em 28/12/2004 23:45 hs
Olá, Além do CRViewer, você só precisa adicionar a biblioteca Crystal Reports Activex Designer Run Time Library em References. Note que após o nome Crystal Reports, a biblioteca possui um número, no meu caso é 8.5 pois essa é a versão do Crystal lque eu tenho, mas no seu caso pode ser outro. Essa biblioteca é que permite usar as classes CRAXDRT do exemplo que eu dei. Não existe mais nada a ser feito, o código acima funciona normalmente. um abraço, Sandro |
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/12/2004 09:29 hs
ok, fiz a referencia, e deu um erro, tirei a senha do banco, ai aparentemente gerou, mas não vi nada, ou seja, qual seria o código, que substitui o código abaixo: CR1.WindowState = crptMaximized
CR1.WindowControlBox = True
CR1.DiscardSavedData = True
CR1.ReportFileName = App.Path & "dupli.rpt"
CR1.Connect = ";PWD=SENHA"
CR1.SelectionFormula = "{carteira.pedido} = '" & txtped.Text & "'"
CR1.SortFields(0) = "+{carteira.DUPLICATA}"
CR1.Destination = 1
CR1.WindowShowPrintSetupBtn = True
CR1.ProgressDialog = False
CR1.Action = 1
CR1.Reset outra coisa, o crviewer, é colocado no form como o crystl32.ocx, ou seria um form só pra ele, onde seriam gerados os relatórios ?, estou meio perdido, se voce puder ajudar. |
|
|
|
|
