Perguntas Etiqueta Zebra TLP 2844 em 90º

Eu preciso fazer com que a impressão, que está rodando, SEJA IMPRESSA DE LADO, ou seja, a impressão deve sair na impressora com 90º de rotação. Pois a etiqueta tem o logotipo pré-impresso de lado, em 90º e eu preciso acompanhar essi.



Alguém sabe como resolvo isso ? Vejam abaixo um trecho do programa:


User Function ETQCLI()
****** Declaracao de Variaveis ******
Local nI:=1,cPeso:=cVol:=cFabr:=' '
Private nLastKey := 0
Private cPerg := "M460NF"
Private cString := ""

validperg(cPerg)
if !pergunte(cPerg,.T.)
return
end

while empty(mv_par01)
alert("Nota invalida")
pergunte(cPerg,.T.)
If nLastKey == 27
Return
Endif
enddo

cSql := "SELECT DISTINCT C5_XXNOME,"
cSql += "C6_PRODUTO,C6_DESCRI,C6_XXQUAUN,C6_XXEMBAL,C6_XXDEMB,C6_QTDVEN,C6_LOTECTL,"
cSql += "B8_DATA,Z4_PESO,Z4_PEPRE FROM "+RetSqlName("SC5")+" SC5 "
cSql += "LEFT JOIN "+RETSQLNAME("SC6")+" SC6 ON SC6.C6_NUM=SC5.C5_NUM "
cSql += "LEFT JOIN "+RETSQLNAME("SB8")+" SB8 ON SB8.B8_LOTECTL=SC6.C6_LOTECTL "
cSql += "LEFT JOIN "+RETSQLNAME("SZ4")+" SZ4 ON SZ4.Z4_CODIGO=SC6.C6_XXEMBAL "
cSql += "WHERE SC5.C5_NOTA='"+mv_par01+"' AND SC6.D_E_L_E_T_=' ' AND SB8.B8_PRODUTO=SC6.C6_PRODUTO"

memowrite("C:\TEMP\LUMETQCLI.SQL",cSql)

TcQuery cSql NEW ALIAS "TMA"

TMA->(dbGoTop())

MSCBPrinter("TLP 2844","LPT1",,,.F.,,,,10)
/* MSCBCHKStatus(.f.) */
While TMA->(!EOF())
cPeso :="Peso Bruto: "+TRAN(TMA->Z4_PESO+TMA->Z4_PEPRE,"@E 999.99")+" Kg - Peso Liq.: "+TRAN(TMA->Z4_PEPRE,"@E 999.99 Kg")
cFabr :="Fabricação: "+DTOC(STOD(TMA->B8_DATA))+" - Validade: 6 meses"
For nI:=1 to TMA->C6_XXQUAUN
MSCBBegin(1,4,95)
cVol :="Nº Volume: "+STR(nI,3)+" / "+ALLTRIM(STR(INT(TMA->C6_XXQUAUN),3))
MSCBSay(10, 35, "Cliente:", "N", "3")
MSCBSay(10, 40, TMA->C5_XXNOME,"N", "4")
MSCBSay(10, 50, "Produto:", "N", "3")
MSCBSay(10, 55, TMA->C6_DESCRI,"N", "4")
MSCBSay(10, 60, "Lote: "+TMA->C6_LOTECTL,"N", "4")
MSCBSay(10, 70, cPeso,"N", "3")
MSCBSay(10, 80, cVol,"N", "3")
MSCBSay(10, 90, cFabr, "N", "3")
MSCBEND()
Next
TMA->(dbSkip())
EndDo
dbCloseArea("TMA")


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Finaliza a execucao do relatorio... ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

MSCBCLOSEPRINTER()