PRINTER NOVAMENTE

USUARIO.EXCLUIDOS 11/09/2007 16:48:44
#235094
Olá gente,
Eu continuo fazendo algo errado... na hora de centralizar o conteudo de acordo com o primeiro Print no caso Label1.Caption & ":"; Spc(10); txtProduto.Text



Private Sub cmdImprimir_Click()
    Dim Mensagem As String
    
    Mensagem = MsgBox("Tem certeza que deseja imprimir o registro atual?", vbYesNo, "Aviso")
    If Mensagem = vbYes Then
        Printer.FontName = "Arial"
        Printer.FontSize = 14
        Printer.FontBold = True
        Printer.ForeColor = QBColor(0)
        Printer.Orientation = vbPRORPortrait
        Printer.PaperSize = vbPRPSA4
        Printer.PrintQuality = vbPRPQMedium
        
        Printer.CurrentX = (210 / 2) - (Printer.TextWidth / 2)
        Printer.CurrentY = (297 / 2) - (Printer.TextHeight / 2)
        
        Printer.Print Label1.Caption & ":"; Spc(10); txtProduto.Text
        Printer.Print
        Printer.Print Label2.Caption & ":"; Spc(10); txtPassada1.Text
        Printer.Print
        Printer.Print Label3.Caption & ":"; Spc(10); txtFormula1.Text
        Printer.Print
        Printer.Print Label4.Caption & ":"; Spc(10); txtPorcentagem1.Text
        Printer.Print
        Printer.Print Label5.Caption & ":"; Spc(10); txtPassada2.Text
        Printer.Print
        Printer.Print Label6.Caption & ":"; Spc(10); txtFormula2.Text
        Printer.Print
        Printer.Print Label7.Caption & ":"; Spc(10); txtPorcentagem2.Text
        Printer.Print
        Printer.Print Label8.Caption & ":"; Spc(10); txtPassada3.Text
        Printer.Print
        Printer.Print Label9.Caption & ":"; Spc(10); txtFormula3.Text
        Printer.Print
        Printer.Print Label10.Caption & ":"; Spc(10); txtPorcentagem3.Text
        Printer.Print
        Printer.Print Label11.Caption & ":"; Spc(10); txtPassada4.Text
        Printer.Print
        Printer.Print Label12.Caption & ":"; Spc(10); txtFormula4.Text
        Printer.Print
        Printer.Print Label13.Caption & ":"; Spc(10); txtPorcentagem4.Text
       Printer.EndDoc
    End If
End Sub


Por favor só falta isso para terminar meu projeto !
USUARIO.EXCLUIDOS 11/09/2007 19:57:40
#235126 Resposta escolhida
Se o problema está no comando (Spc) então substitua por " ", ou seja, coloque os espaços em branco entre aspas...

PS.: O ponto e virgula (;) indica para o printer que é para continuar na mesma linha.
USUARIO.EXCLUIDOS 12/09/2007 10:11:59
#235177
então akilo é pra continuar na msm linha msm...

o problema ta na hora de centralizar o q vai ser impresso de acordo com
Printer.Print Label1.Caption & ":"; Spc(10); txtProduto.Text

eu quero q isso fique centralizado... e os outros fiquem alinhados abaixo dele

vlws msm assim!
USUARIO.EXCLUIDOS 12/09/2007 12:34:29
#235211
Tem como eu imprimir esses dados com o objeto Printer usando common dialog?

pq eu nunca usei ele para imprimir até agora meu código ta assim:

Private Sub cmdImprimir_Click()
    Dim Mensagem As String
    Mensagem = MsgBox("Tem certeza que deseja imprimir o registro atual?", vbYesNo, "Aviso")
    If Mensagem = vbYes Then
        Dialog.ShowPrinter
        Printer.Print Label1.Caption & ":"; Spc(10); txtProduto.Text
        Printer.Print
        Printer.Print Label2.Caption & ":"; Spc(10); txtPassada1.Text
        Printer.Print
        Printer.Print Label3.Caption & ":"; Spc(10); txtFormula1.Text
        Printer.Print
        Printer.Print Label4.Caption & ":"; Spc(10); txtPorcentagem1.Text
        Printer.Print
        Printer.Print Label5.Caption & ":"; Spc(10); txtPassada2.Text
        Printer.Print
        Printer.Print Label6.Caption & ":"; Spc(10); txtFormula2.Text
        Printer.Print
        Printer.Print Label7.Caption & ":"; Spc(10); txtPorcentagem2.Text
        Printer.Print
        Printer.Print Label8.Caption & ":"; Spc(10); txtPassada3.Text
        Printer.Print
        Printer.Print Label9.Caption & ":"; Spc(10); txtFormula3.Text
        Printer.Print
        Printer.Print Label10.Caption & ":"; Spc(10); txtPorcentagem3.Text
        Printer.Print
        Printer.Print Label11.Caption & ":"; Spc(10); txtPassada4.Text
        Printer.Print
        Printer.Print Label12.Caption & ":"; Spc(10); txtFormula4.Text
        Printer.Print
        Printer.Print Label13.Caption & ":"; Spc(10); txtPorcentagem4.Text
    End If
End Sub


não esta dando certo...

Como usar o common dialog pra imprimir esses dados?
Tópico encerrado , respostas não são mais permitidas
Voltar