Como imprimir conteúdo de um FLEXGRID?
Dim intTamanho as Integer intTamanho = MSFlexGrid.Width MSFlexGrid.Width = Printer.Width Printer.PaintPicture MSFlexGrid.Picture, 0, 0 Printer.EndDoc MSFlexGrid.Width = intTamanho
Nem sempre é necessário ou útil que um sistema (projeto VB) inicie com uma janela (form). Uma alternativa, nem sempre utilizada, é o de iniciar o projeto executando uma rotina sem form. Alguns exe...
Construa um Recordset a partir de uma instrução SQL, passando os períodos. Como por exemplo: cSQL = " SELECT CONTA.CDCONTA, CONTA.NOCONTA FROM WHERE CONTA.DTVENCIMENTO >= '" & DTINICIAL & "' AND...
Código para o módulo .bas: Option Explicit Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Public Const EWX_SHUTDOWN = 1 Public Cons...
O grande problema da Plataforma Client/Server é exatamente esse. Compatibilidade. É preciso ter cautela na hora de gerar o pacote de Instalação e vincular nele todos os arquivos que você tenha us...
A rotina abaixo (parte da biblioteca CodeBank) calcula as coordenadas de qualquer ponto, medida em graus, numa circunferência, num círculo ou numa elipse. Public Sub DegreesToXY(CenterX as Long, ...
