1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Urgente QR code em word

Discussão em 'Progress 4GL' iniciado por antonioc, Julho 22, 2014.

  1. Fernando Pinhatti

    Fernando Pinhatti Membro Participativo

    Tenta assim....

    DEF VAR c-texto AS CHAR INITIAL "www.uol.com.br".

    def var AppWord as com-handle no-undo.

    create "Word.Application" AppWord.

    AppWord:visible = YES.

    AppWord:Documents:ADD().


    //Appword:preserveformatting(FALSE).

    Appword:SELECTION:FIELDS:ADD(Appword:SELECTION:range,-1,,false).

    Appword:Selection:Typetext('DISPLAYBARCODE' + '"' + c-texto + '"' + 'QR').

    Appword:SELECTION:FIELDS:ToggleShowCodes().

    /*Appword:ActiveDocument:SaveAs( "c:/temp/qr_code.doc").
    Appword:ActiveDocument:Close.
    Appword:Quit().*/
    release object appWord.
  2. danichi

    danichi Sem Pontuação

    Olá boa noite !
    estou precisando gerar um codigo de barras code128 para word, utilizei esse programa de exemplo e gerou certinho porém eles querem que gere o codigo de barras na vertical e não consigo girar este código de forma alguma, você já fez isso ou tem alguma idéia? Obrigada
  3. ueluis

    ueluis Membro Participativo

    se estiver utilizando a imagem gerada pelo zint e carregando ela para o word, seria o comando vb para girar a imagem, eu não sei ao certo o comando deve ser algo como Selection.ShapeRange.Rotation=180

Compartilhe esta Página